home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / jyuku / main.bas < prev    next >
BASIC Source File  |  1994-09-20  |  77KB  |  1,739 lines
  1. 10 PLAY OFF:GOTO *SYOKI
  2. 20 *DWRI
  3. 30 PUT@A(16+(F-1)*48,6)-(16+47+(F-1)*48,100),DES%,PSET
  4. 40 'LOCATE 5+(F-1)*12,11:PRINT SPC(10)
  5. 50 LOCATE 5+(F-1)*12,9:PRINT SPC(10)
  6. 60 LOCATE 5+(F-1)*12,10:PRINT SPC(10)
  7. 70 LOCATE 5+(F-1)*12,11:PRINT SPC(10)
  8. 80 LOCATE 5+(F-1)*12,12:PRINT SPC(10)
  9. 90 LOCATE 5+(F-1)*12,13:PRINT SPC(10)
  10. 100 RETURN
  11. 110 *CHI
  12. 120 LOCATE 5+(F-1)*12,11:PRINT SPC(10)
  13. 130 RETURN
  14. 140 FOR I=1 TO 17:COLOR I:PRINT I;:NEXT
  15. 150 *KOE
  16. 160 IF W=0 OR M=0 OR POW=1 THEN RETURN
  17. 170 'DIM V27%(20000):LOAD@ "V83.SND",V27%:VOICE SET V27%:PLAY ,,,,,,,"C1"
  18. 180 IF CMA=M AND M<>0 THEN PLAY OFF:GOTO 210
  19. 190 LOAD@ "V"+MID$(STR$(M),2,2)+".SND",V27%:CMA=M
  20. 200 VOICE SET V27%:PLAY OFF:
  21. 210 IF M>=52 AND M<=66 THEN P1$="O3B1":GOTO 260
  22. 220 IF M>=73 AND M<76 THEN P1$="O3B1":GOTO 260
  23. 230 IF M=59 THEN PLAY "","","","","","","O4C2&"
  24. 240 IF M=>59 AND M=<66 THEN PLAY "","","","","","","O4C2":GOTO 290
  25. 250 P1$=P$(M(F,10))
  26. 260 IF M=>77 THEN PLAY "","","","","","","@1L4"+P1$+"&"+P1$:WAIT 20:GOTO 290
  27. 270 PLAY OFF
  28. 280 PLAY "","","","","","","@1L4"+P1$
  29. 290 WAIT 50:RETURN
  30. 300 *SCORE
  31. 310 IF MI=>60 THEN HO=HO+1:MI=MI-60
  32. 320 IF HO>=4 THEN EDD=1 ELSE EDD=0
  33. 330 COLOR 5:LOCATE 45,15:PRINT USING "ÄÄî▒ô·é▄é┼##ô·";DAY
  34. 340 COLOR 4:LOCATE 62,15:PRINT USING "û{ô·##Ä₧è╘û┌##ò¬";HO;MI
  35. 350 COLOR 6:LOCATE 45,16:PRINT USING "ÉMùèôx #####";SI
  36. 360 COLOR 7:LOCATE 62,16:PRINT USING "ô╛ô_   ###,###ô_";SC
  37. 370 RETURN
  38. 380 *WRI
  39. 390 PUT@A(23+(F-1)*48,14+UY)-(23+(F-1)*48+31,14+31+UY),R1%,PSET,,,,(F-1)*1056
  40. 400 PUT@A(16+(F-1)*48,45+UY)-(16+(F-1)*48+47,45+31+UY),DE%,PSET
  41. 410 RETURN
  42. 420 *BYE
  43. 430 PUT@A(16+(F-1)*48,45+UY)-(16+(F-1)*48+29,45+31+UY),BY%,PSET
  44. 440 PUT@A(13+(F-1)*48,14+UY)-(13+(F-1)*48+32,14+31+UY),R1%,PSET,,,,(F-1)*1056
  45. 450 RETURN
  46. 460 *KOCHO
  47. 470 IF KH>130 THEN CL=7:KH$="ÉΓìDÆ▓"
  48. 480 IF KH<131 THEN CL=6:KH$="ìDÆ▓"
  49. 490 IF KH<90 THEN CL=5:KH$="ù╟ìD"
  50. 500 IF KH<70 THEN CL=4:KH$="òüÆ╩"
  51. 510 IF KH<50 THEN CL=3:KH$="ê½éó"
  52. 520 IF KH<20 THEN CL=2:KH$="éΓé╬éó"
  53. 530 COLOR CL
  54. 540 LOCATE 20,19:PRINT USING "&      &";KH$
  55. 550 COLOR 7:RETURN
  56. 560 *MK
  57. 570 FOR I=0 TO 2
  58. 580 LOCATE 14,21+I:PRINT SPC(14);
  59. 590 NEXT
  60. 600 '
  61. 610 W=27:GOSUB *KOE
  62. 620 PUT@A(20,178)-(35,185),KO%,PSET,,,,8*8*0
  63. 630 KY=0:LI=0:FOR I=0 TO LEN(MK$)/2-1
  64. 640 A$=MID$(MK$,I*2+1,2):IF LI>5 THEN KY=KY+1:LI=0
  65. 650 IF M=0 OR POW=1 THEN BEEP 363523,6,40+FNA(30)
  66. 660 PUT@A(20,186)-(35,192),KO%,PSET,,,,8*8*2:WAIT 3
  67. 670 LOCATE 14+LI*2,21+KY:PRINT A$
  68. 680 PUT@A(20,186)-(35,192),KO%,PSET,,,,8*8*6
  69. 690 WAIT 6:LI=LI+1:NEXT
  70. 700 WAIT 20:RETURN
  71. 710 *KOP
  72. 720 PUT@A(20,178)-(35,185),KO%,PSET,,,,8*8*KP2
  73. 730 PUT@A(20,186)-(35,192),KO%,PSET,,,,8*8*KP
  74. 740 KP=2:KP2=0:RETURN
  75. 750 *SCR
  76. 760 GOSUB *CR:GOSUB *SS
  77. 770 RETURN
  78. 780 *CR:'ÅπâüâbâZü|âWÅ┴ïÄ
  79. 790 FOR D=0 TO 2
  80. 800 LOCATE 5,1+D:PRINT SPC(90)
  81. 810 NEXT
  82. 820 LINE(10,5)-(309,36),PSET,[44,0,0],BF
  83. 830 RETURN
  84. 840 *STM:'ë║âüâbâZü|âWÅ┴ïÄ
  85. 850 GY=0
  86. 860 FOR I=0 TO 7
  87. 870 LOCATE 28,17+I:PRINT SPC(32);
  88. 880 NEXT
  89. 890 IF RP=1 THEN RP=0:RETURN
  90. 900 *MSG
  91. 910 LI=0:FOR I=0 TO LEN(MS$)/2-1
  92. 920 A$=MID$(MS$,I*2+1,2):IF LI>15 THEN GY=GY+1:LI=0
  93. 930 LOCATE 28+LI*2,18+GY:PRINT A$
  94. 940 BEEP 363523,2,430
  95. 950 WAIT 2:LI=LI+1:NEXT:GY=GY+1:IF GY=7 THEN RP=1:GOSUB *STM
  96. 960 RETURN
  97. 970 *WD
  98. 980 WX=0
  99. 990 FOR I=0 TO 8
  100. 1000 LOCATE 28,17+I:PRINT SPC(32);
  101. 1010 NEXT
  102. 1020 IF CK=1 THEN CK=0:RETURN
  103. 1030 COLOR 6:IF MS$="" THEN MS$="érédékédébés"
  104. 1040 IF EM THEN LOCATE 28,18:PRINT USING "@[##ò¬]";MS$;EM
  105. 1050 IF EM=0 THEN LOCATE 28,18:PRINT USING "@";MS$
  106. 1060 COLOR 7:CC=0:FOR I=1 TO KZ
  107. 1070 IF I>=5 THEN WX=100
  108. 1080 LOCATE 28,18+I:PRINT "üû"+CM$(I);
  109. 1090 NEXT
  110. 1100 MOUSE 4,110,180,200,232
  111. 1110 IF MOUSE (2,0) THEN MX=MOUSE(0):MY=MOUSE(1):BEEP 363523,10,MY/20+80:GOTO 1140
  112. 1120 IF MOUSE (2,1) THEN CC=1:RETURN
  113. 1130 GOTO 1110
  114. 1140 IF 178+9*KZ<MY THEN 1110
  115. 1150 FOR I=0 TO 5
  116. 1160 IF MY>180+I*9-1 AND MY<180+9+I*9 THEN X=I
  117. 1170 NEXT
  118. 1180 LINE(110,180+10*X)-(120+16*6+15,180+X*10+7),XOR,1,BF
  119. 1190 WAIT 30
  120. 1200 LINE(110,180+10*X)-(120+16*6+15,180+X*10+7),XOR,1,BF
  121. 1210 RETURN
  122. 1220 *MAN
  123. 1230 FOR EF=1 TO 6:GOSUB *DAPR:NEXT:RETURN
  124. 1240 *DAPR
  125. 1250 FOR H=2 TO 4:CL(H)=7:T$(EF)="ì┼ù╟"
  126. 1260 IF M(EF,H)>200 THEN M(EF,H)=200
  127. 1270 IF M(EF,H)>160 AND H=3 THEN CL(H)=2:T$(EF)="Æìê╙"
  128. 1280 IF M(EF,H)<161 THEN CL(H)=7:IF H=3 THEN T$(EF)="ì┼ù╟"
  129. 1290 IF M(EF,H)<100 THEN CL(H)=6:IF H=3 THEN T$(EF)="ù╟éó"
  130. 1300 IF M(EF,H)<80 THEN CL(H)=5:IF H=3 THEN T$(EF)="òüÆ╩"
  131. 1310 IF M(EF,H)<70 THEN CL(H)=4:IF H=3 THEN T$(EF)="ê½éó"
  132. 1320 IF M(EF,H)<50 THEN CL(H)=3:IF H=3 THEN T$(EF)="ì┼ê½"
  133. 1330 IF M(EF,H)<30 THEN CL(H)=2:IF H=3 THEN T$(EF)="òsù╟"
  134. 1340 IF M(EF,H)<10 THEN CL(H)=1:IF H=3 THEN T$(EF)="èδî»"
  135. 1350 IF M(EF,H)<0 THEN M(EF,H)=0
  136. 1360 IF H=4 THEN COLOR CL(4):LOCATE 5+(EF-1)*12,11:PRINT USING "&          &";NM$(EF)
  137. 1370 COLOR 7:LOCATE 5+(EF-1)*12,12:PRINT "Æmö\"
  138. 1380 LOCATE 5+(EF-1)*12,13:PRINT "æ╘ôx"
  139. 1390 IF H=3 THEN AA=4 ELSE IF H=4 THEN AA=2 ELSE IF H=2 THEN AA=3
  140. 1400 IF H=2 THEN COLOR CL(2):LOCATE 11+(EF-1)*12,12:PRINT USING "####";M(EF,2)
  141. 1410  LINE(20+(EF-1)*48,96+16+(AA-2)*10-(AA=2))-(20+(EF-1)*48+M(EF,H)/5,96+16+(AA-2)*10-(AA=2)),PSET,[40+M(EF,H),40-(H=2)*M(EF,H),-(H=2 OR H=3)*M(EF,H)]
  142. 1420 LINE(20+(EF-1)*48+M(EF,H)/5+1,96+16+(AA-2)*10-(AA=2))-(20+(EF-1)*48+42,96+16+(AA-2)*10-(AA=2)),PSET,[39,37,37]
  143. 1430 IF H=3 THEN COLOR CL(3):LOCATE 11+(EF-1)*12,13:PRINT USING "&   &";T$(EF)
  144. 1440 COLOR 7
  145. 1450 NEXT
  146. 1460 RETURN
  147. 1470 *LNCL
  148. 1480 FOR EF=1 TO 6:FOR AA=2 TO 4
  149. 1490 LINE(20+(EF-1)*48,96+16+(AA-2)*10-(AA=2))-(20+(EF-1)*48+42,96+16+(AA-2)*10-(AA=2)),PSET,[39,37,37]
  150. 1500 NEXT:NEXT
  151. 1510 RETURN
  152. 1520 *WWPR
  153. 1530 LOCATE 5+(F-1)*12,12:PRINT USING "&      &";RM$(M(F,14))
  154. 1540 LOCATE 5+(F-1)*12,13:PRINT USING "æ╘ôx ###";M(F,3)
  155. 1550 RETURN
  156. 1560 *NOBI
  157. 1570 'FOR F=1 TO 6
  158. 1580 GET@A(16+(F-1)*48,100)-(16+(F-1)*48+47,100+27),OO%
  159. 1590 PUT@A(16+(F-1)*48,82)-(16+(F-1)*48+47,82+27),OO%
  160. 1600 RETURN
  161. 1610 *MODO
  162. 1620 'FOR F=1 TO 6
  163. 1630 GET@A(16+(F-1)*48,82)-(16+(F-1)*48+47,82+27),OO%
  164. 1640 PUT@A(16+(F-1)*48,100)-(16+(F-1)*48+47,100+27),OO%
  165. 1650 RETURN
  166. 1660 *WPR
  167. 1670 LOCATE 5+(F-1)*12,9:PRINT USING "&        &";RM$(M(F,14))
  168. 1680 LOCATE 5+(F-1)*12,10:PRINT USING "ê╙ù~   ###";M(F,4)
  169. 1690 LOCATE 5+(F-1)*12,11:PRINT USING "ɼÉ╤   ###";M(F,2)
  170. 1700 LOCATE 5+(F-1)*12,12:PRINT USING "æ╘ôx   ###";M(F,3)
  171. 1710 IF AD=0 THEN GOTO 1740 
  172. 1720 IF UK=0 THEN COLOR 2:MM$="òsìçèi" ELSE COLOR 6:MM$="ìçèi"
  173. 1730 LOCATE 5+(F-1)*12,13:PRINT USING "&        &";MM$
  174. 1740 COLOR 7:RETURN
  175. 1750 *TOTAL
  176. 1760 ALL=0:FOR F=1 TO 6
  177. 1770 ALL=ALL+M(F,2)+M(F,3)+M(F,4)
  178. 1780 NEXT
  179. 1790 RETURN
  180. 1800 *KAO
  181. 1810 GOSUB *MU:GOSUB *ME:GOSUB *KU:RETURN
  182. 1820 *MU
  183. 1830 PUT@A(31+(F-1)*48,26+UY)-(31+(F-1)*48+15,26+2+UY),MU%,PSET,,,,M(F,7)*8*8*6+MU2*8*8
  184. 1840 MU2=0:RETURN
  185. 1850 *ME
  186. 1860 PUT@A(31+(F-1)*48,30+UY)-(31+(F-1)*48+15,30+3+UY),ME%,PSET,,,,ME*8*8
  187. 1870 RETURN
  188. 1880 *KU
  189. 1890 PUT@A(31+(F-1)*48+4,38+UY)-(31+(F-1)*48+10,38+3+UY),KU%,PSET,,,,KU*28
  190. 1900 RETURN
  191. 1910 *MABA
  192. 1920 FOR I=0 TO 3
  193. 1930 ME=I:GOSUB *ME
  194. 1940 WAIT 3:NEXT:RETURN
  195. 1950 *OKI
  196. 1960 FOR I=3 TO 0 STEP -1
  197. 1970 ME=I:GOSUB *ME
  198. 1980 WAIT 10:NEXT
  199. 1990 RETURN
  200. 2000 *NANI
  201. 2010 MU2=3:GOSUB *MU:WAIT 5
  202. 2020 MU2=5:GOSUB *MU
  203. 2030 RETURN
  204. 2040 *TSURAI
  205. 2050 FOR I=1 TO 2
  206. 2060 MU2=1:GOSUB *MU:WAIT 5
  207. 2070 MU2=2:GOSUB *MU:WAIT 5
  208. 2080 NEXT
  209. 2090 RETURN
  210. 2100 *WINK
  211. 2110 FOR I=4 TO 6
  212. 2120 ME=I:GOSUB *ME
  213. 2130 WAIT 10:NEXT
  214. 2140 FOR I=6 TO 4 STEP -1
  215. 2150 ME=I:GOSUB *ME
  216. 2160 WAIT 10:NEXT
  217. 2170 ME=0:GOSUB *ME
  218. 2180 RETURN
  219. 2190 *BIN
  220. 2200 PUT@A(28+(F-1)*48,60+UY)-(38+(F-1)*48,60+16+UY),BI%,PSET
  221. 2210 WAIT 20
  222. 2220 PUT@A(28+(F-1)*48,60+UY)-(38+(F-1)*48,60+16+UY),BO%,PSET
  223. 2230 WAIT 5
  224. 2240 RETURN
  225. 2250 *AKU
  226. 2260 MU2=2:GOSUB *MU:ME=3:GOSUB *ME:KU=6:GOSUB *KU:WAIT 10
  227. 2270 KU=9:GOSUB *KU:WAIT 10
  228. 2280 KU=6:GOSUB *KU:WAIT 20
  229. 2290 KU=5:GOSUB *KU
  230. 2300 RETURN
  231. 2310 *OK
  232. 2320 CM$(1)="éxédér"
  233. 2330 CM$(2)="émén"
  234. 2340 KZ=2:GOSUB *WD:IF CC=1 THEN RETURN
  235. 2350 IF X=0 THEN CC=0 ELSE CC=1
  236. 2360 RETURN
  237. 2370 *BCL
  238. 2380 FOR F=1 TO 7:LOCATE 62,17+F:PRINT SPC(17);:NEXT:RETURN
  239. 2390 *SHIN
  240. 2400 LINE(242,167)-(316,236),PSET,0,BF
  241. 2410 LOCATE 62,18:PRINT "ÉiÿHÅ≤ï╡        "
  242. 2420 FOR F=1 TO 6
  243. 2430 EI2=50+M(F,14)*20+EP2:EI3=50+M(F,14)*20+EP3:EI4=50+M(F,14)*20+EP4:RR=1
  244. 2440 IF M(F,2)>EI2-20 THEN RR=RR+1:IF M(F,2)>EI2 THEN RR=RR+1
  245. 2450 IF M(F,3)>EI3-20 THEN RR=RR+1:IF M(F,3)>EI3 THEN RR=RR+1
  246. 2460 IF M(F,4)>EI4-20 THEN RR=RR+1:IF M(F,4)>EI4 THEN RR=RR+1
  247. 2470 COLOR RR:IF M(F,14)=0 THEN RM$(0)="ûóÆΦ":COLOR 7
  248. 2480 LOCATE 62,18+F:PRINT USING"&     & &      &";NM$(F);RM$(M(F,14));
  249. 2490 NEXT:COLOR 7
  250. 2500 RETURN
  251. 2510 *KODATA
  252. 2520 LINE(242,167)-(316,236),PSET,0,BF
  253. 2530 COLOR 5:LOCATE 62,18:PRINT "ìéìZü@ê╙ü@Æmü@æ╘"
  254. 2540 FOR F=1 TO 5:COLOR 7
  255. 2550 EI2=50+F*20+EP2:EI3=50+F*20+EP3:EI4=50+F*20+EP4
  256. 2560 IF M(F,2)>EI2-20 THEN RR=RR+1:IF M(F,2)>EI2 THEN RR=RR+1
  257. 2570 LOCATE 62,18+F:PRINT USING"&  & ### ### ###";RM$(F);EI4;EI2;EI3;
  258. 2580 NEXT:COLOR 7:LOCATE 62,24:PRINT SPC(17);
  259. 2590 RETURN
  260. 2600 *CCRR
  261. 2610 LOCATE 62,18:PRINT "üÖüÖÉFïµò╩ò\üÖüÖ"
  262. 2620 FOR F=1 TO 7:COLOR F:'IF F=8 THEN COLOR 2
  263. 2630 LOCATE 61+F*2,19:PRINT USING"&& ";F$(F):LOCATE 61+F*2,20:PRINT USING"&& ";MID$(F$(F),3,2)
  264. 2640 NEXT:COLOR 7
  265. 2650 FOR F=21 TO 24:LOCATE 62,F:PRINT SPC(17);:NEXT:F=0
  266. 2660 RETURN
  267. 2670 *SYOKI
  268. 2680 COLOR 7,0:SCREEN @1
  269. 2690 CLEAR ,,,410000,0
  270. 2700 RANDOMIZE TIME/3
  271. 2710 P$="T220O4L4V14@1"
  272. 2720 PLAY P$,P$,P$,P$,P$,P$,P$,P$,P$,P$:GOSUB *BGM2
  273. 2730 DEF FNA(WRR)=INT(RND(1)*WRR)+1
  274. 2740 DIM EA$(300),BO%(800),BI%(800),ME%(2000),MU%(2000),KU%(2000),KO%(2000),M(10,20),AS%(2000),EE%(2000),PE%(1000),OO%(4000)
  275. 2750 DIM CL$(300),SC(300),DT$(300),TM$(300),INS$(300),LV(300)
  276. 2760 DIM R1%(20000),DE%(3000),DES%(9000),V1%(20000),V2%(20000)
  277. 2770 DIM V3%(20000),V4%(20000),V27%(40000),BY%(3000),BARA%(400):CLS
  278. 2780 LOAD@ "MEPAT.TIF",(0,0)    :GET@A(0,0)-(15,47),ME%
  279. 2790 LOAD@ "MAYUPAT.TIF",(16,0) :GET@A(16,0)-(31,47),MU%
  280. 2800 LOAD@ "KUCHIPAT.TIF",(32,0):GET@A(32,0)-(38,47),KU%
  281. 2810 LOAD@ "KOKIT.TIF",(40,0):GET@A(40,0)-(55,31),KO%
  282. 2820 LOAD@ "BINBO.TIF",(60,0):GET@A(60,0)-(70,16),BI%
  283. 2830 LOAD@ "DESKB.TIF",(0,0):GET@A(0,0)-(47,31),DE%
  284. 2840 LOAD@ "DESKC.TIF",(100,0):GET@A(100,0)-(147,31),EE%
  285. 2850 LOAD@ "KAHAN.TIF",(100,0):GET@A(100,0)-(131,22),BY%
  286. 2860 LOAD@ "BARA.TIF",(100,0):GET@A(100,0)-(106,14),BARA%
  287. 2870 GET@A(12,UY+15)-(22,UY+31),BO%
  288. 2880 'LOAD@ "KAOA.TIF",(0,0):GET@A(1,0)-(32,218),R1%
  289. 2890 RESTORE 2980
  290. 2900 'P$(1)="O3A2":P$(2)="O4F2":P$(3)="O4C2"
  291. 2910 'P$(4)="O4D2":P$(5)="O3G2":P$(6)="O4E2"
  292. 2920 P$(1)="O3F2":P$(2)="O3G2":P$(3)="O3A2"
  293. 2930 P$(4)="O3B2":P$(5)="O4C2":P$(6)="O4D2"
  294. 2940 P$(7)="O4D+2":P$(8)="O4E2":P$(9)="O4F2"
  295. 2950 K=0
  296. 2960 READ EA$(K)
  297. 2970 IF EA$(K)<>"*" THEN K=K+1:GOTO 2960
  298. 2980 DATA "",éφé⌐éΦé▄é╣é±,éφé⌐é±é╦éÑ,ô∩é╡éó,éñü[é▐
  299. 2990 DATA é╚éΘé┘é╟,é╗éñé⌐,ê╒é╡éóé╚,èyŃé╛,è┤ô«é╛,éóéóé╦éÑ
  300. 3000 DATA òsû∙ë⌡é╛,é╙é┤é»éΘé╚,èµÆúéΘé╝,éΓé┴é─éΓéΘ
  301. 3010 DATA û░éó,é⌐é┴é╜éΦéí,û╩öÆéó,é╙é┴,é┬é▄éτé╚éó
  302. 3020 DATA é¡é╛éτé╦éÑ,é═éó,é═ü[éó,û{ôû,é▄é╢é⌐éµ
  303. 3030 DATA ê╙ûíé╚éó,û│æ╩é╛éµ,é╟éñé╡é─üH,ë≈é╡éóüI
  304. 3040 DATA ë}ûíé⌐,âVâçâbâNüI,æ╩û┌é╛é▒éΦéß,éáéτé┴,è╓îWé╦éÑ
  305. 3050 DATA ÄcöO,é▄éóé┴é⌐,éµé╡é┴üI,éΓé┴é╜éƒüI,é┐éÑé┴üI
  306. 3060 DATA é¡é╜é╬éΩ,é╢éßéáé╚,é▄é╜é╚
  307. 3070 DATA é│éµéñé╚éτ,ùLéΦô∩éñé▓é┤éóé▄é╡é╜
  308. 3080 DATA ÉµÉ╢,ɵî÷,é╙é▐é╙é▐,éñéΘé╣éÑéµ,é▐éΦé╛éµ,É╪éΩé╜
  309. 3090 DATA û┌èoé▀é╜,é═é═é═
  310. 3100 DATA ïXé╡é¡ùèé▐éµ,é▄é╕é▄é╕é╢éßé╚,é¿éóé¿éóùèé▐éµ
  311. 3110 DATA æσÅΣòvé⌐éóüH,îNé╠îΣëAé╢éß,éφé╡é═éαéñæ╩û┌é╢éß
  312. 3120 DATA îNé═æ╩û┌é╢éß,é▒é▒é▄é┼îΣïΩÿJé╢éßé┴é╜,îNé╚éτæσÅΣòvé╛éδéñ
  313. 3130 DATA é╗éδé╗éδÿAùìé¬é═éóéΘé╢éßéδéñ,é╚é±é╢éßé▒é╠îïë╩é═
  314. 3140 DATA ï│Äté≡é╚é▀é─é±é╠é⌐,é─é▀éªé╙é┤é»é±é╚é▒é╠û∞ÿY
  315. 3150 DATA éφé╡é═û₧æ½é╢éß,ÅmÆ╖é╔é╚éτé±é⌐üH
  316. 3160 DATA é¡é╗é┴é╜éΩüIüI,ìçèié╛,Ä≤é⌐é┴é╜,Ä≤é⌐éΦé▄é╡é╜,Æ{É╢
  317. 3170 DATA é┴é─î╛üXé╜é⌐é┴é╜,É╙öCé═ĵé┴é─éαéτéñéµ
  318. 3180 DATA ÉMé╢éτéΩé±,ìíô·é═é▌é±é╚é╠ÉiÿHé≡îêé▀éΘé±é╢éß
  319. 3190 DATA û{ôûé╔,ò╩éΩé¬é┬éτéóé┼é╖,ûöï│éªé─é¡é╛é│éó
  320. 3200 DATA é╙é┤é»é±é╢éßé╦éÑ,é╚é▀é±é╢éßé╦éÑ,é▐é⌐é┬éóé╜,ô¬é½é╜
  321. 3210 DATA Æ╖éóéµ,éΓé┴é╞ÅIéφé┴é╜,éαéñÅIéφéΦüH
  322. 3220 DATA *
  323. 3230 'FOR K=0 TO 29:LPRINT USING "üá##=&                &üá##=&                  & üá##=&                 &";K;EA$(K);K+30;EA$(K+30);K+60;EA$(K+60):NEXT
  324. 3240 CLS:LOAD@ "SBOOK.TIF",(76,3)
  325. 3250 MOUSE 0
  326. 3260 IF MOUSE(2,0) OR MOUSE(2,1) THEN 3270 ELSE 3260
  327. 3270 GOSUB *BGM1:CLS:LOAD@ "BGV.TIF",(0,0)
  328. 3280 GET@A(16,6)-(16+47,100),DES%
  329. 3290 UY=22:LOAD@ "LMS.TIF",(32,7)
  330. 3300 LOCATE 14,18:PRINT "----ÅmÆ╖----"
  331. 3310 LOCATE 14,19:PRINT "æ╠Æ▓"
  332. 3320 LOCATE 14,20:PRINT "----êΩî╛----"
  333. 3330 RM$(1)="ï╔ê½ìéìZ"
  334. 3340 RM$(2)="ìíêΩìéìZ"
  335. 3350 RM$(3)="îÄò└ìéìZ"
  336. 3360 RM$(4)="û╝ûσìéìZ"
  337. 3370 RM$(5)="êΩù¼ìéìZ"
  338. 3380 F$(8)="Æìê╙"
  339. 3390 F$(7)="ì┼ù╟"
  340. 3400 F$(6)="ù╟éó"
  341. 3410 F$(5)="òüÆ╩"
  342. 3420 F$(4)="ê½éó"
  343. 3430 F$(2)="òsù╟"
  344. 3440 F$(3)="ì┼ê½"
  345. 3450 F$(1)="èδî»"
  346. 3460 *JYU
  347. 3470 'LOAD@ "tt2.tif",(243,167)
  348. 3480 FOR I=1 TO 7
  349. 3490 LOCATE 62,17+I:PRINT SPC(17);
  350. 3500 NEXT
  351. 3510 MOUSE 1,160,100,1
  352. 3520 PPP=0:EM=0:UO=0:JU=0
  353. 3530 MS$="æIé±é┼é¡é╛é│éó"
  354. 3540 CM$(1)="Äné▀é⌐éτ"
  355. 3550 CM$(2)="æ▒é½é⌐éτ"
  356. 3560 CM$(3)="âNâëâXì∞ɼ"
  357. 3570 CM$(4)="ë▀ïÄé╠âfü[â^ü[é≡î⌐éΘ"
  358. 3580 'CM$(5)="ë▀ïÄé╠âfü[â^ü[é≡Å┴é╖"
  359. 3590 CV=0:TC=0:SK=0:KZ=4:GOSUB *WD:UO=0
  360. 3600 IF CC=1 THEN 3590
  361. 3610 LINE(10,5)-(309,99),PSET,[44,0,0],BF
  362. 3620 IF X=0 THEN MS$="Åëé▀é⌐éτ":UO=1:JU=1:GOSUB *LOD:IF CC=1 THEN *JYU ELSE *SPMAIN
  363. 3630 IF X=1 THEN MS$="æ▒é½é⌐éτ":GOSUB *LOD:IF CC=1 THEN *JYU ELSE *SPMAIN
  364. 3640 IF X=2 THEN GOSUB *DCO
  365. 3650 IF X=3 THEN CLOSE:GOSUB *MIRU
  366. 3660 'IF X=4 THEN CLOSE:GOSUB *qqqqq
  367. 3670 ''IF X=4 THEN CLOSE:GOSUB *NNNN
  368. 3680 GOTO *JYU
  369. 3690 *DCO
  370. 3700 MS$="âNâëâXì∞ɼ"
  371. 3710 CM$(1)="ÄQìlùLéΦ"
  372. 3720 CM$(2)="ÄQìlû│é╡"
  373. 3730 KZ=2:GOSUB *WD
  374. 3740 IF CC=1 THEN RETURN *JYU
  375. 3750 IF X=1 THEN GOSUB *CONST:RETURN *JYU
  376. 3760 IF X=0 THEN TC=1:JU=1:GOSUB *LOD:IF CC=1 THEN *JYU ELSE TC=2:GOSUB *CONST:RETURN *JYU
  377. 3770 RETURN
  378. 3780 *SPMAIN
  379. 3790 PLAY OFF
  380. 3800 TC=1:GOSUB *CONST:UO=0:JU=0
  381. 3810 LINE(10,5)-(309,99),PSET,[44,0,0],BF
  382. 3820 GOSUB *KOCHO
  383. 3830 *MAIN
  384. 3840 HO=1:MI=0:PLAY OFF
  385. 3850 IF DAY=0 THEN *SHIKEN
  386. 3860 IF DAY>6 THEN LOAD@ "cltt.tif",(243,167):GOSUB *CCRR
  387. 3870 'IF DAY=6 THEN GOSUB *BCL:LOAD@ "tt2.tif",(243,167)
  388. 3880 M=52
  389. 3890 MK$=EA$(M):GOSUB *MK:GOSUB *KOCHO
  390. 3900 M=0:GOSUB *TOTAL
  391. 3910 ALL1=ALL
  392. 3920 GOSUB *KINKON:'IF DAY>6 THEN GOSUB *CCRR
  393. 3930 FOR F=1 TO 6:M(F,13)=0:M(F,11)=0
  394. 3940 IF M(F,4)>50 AND FNA(4)=1 THEN M(F,2)=M(F,2)+FNA(2)
  395. 3950 IF M(F,4)>80 AND FNA(3)=1 THEN M(F,2)=M(F,2)+FNA(5)
  396. 3960 IF M(F,4)>90 AND FNA(2)=1 THEN M(F,2)=M(F,2)+FNA(6)
  397. 3970 IF M(F,4)>100 AND FNA(2)=1 THEN M(F,2)=M(F,2)+FNA(7)
  398. 3980 IF M(F,4)>150 AND FNA(2)=1 THEN M(F,2)=M(F,2)+FNA(10)
  399. 3990 NEXT
  400. 4000 BR=0:TW=0:FOR F=1 TO 6:M(F,12)=1
  401. 4010 IF M(F,3)<10 AND FNA(3)=1 AND DAY<8 AND M(F,13)=0 THEN M(F,12)=0
  402. 4020 IF M(F,3)>165 AND MI=60 AND M(F,13)=0 THEN M(F,13)=1:M(F,16)=1:M(F,12)=1:BR=1
  403. 4030 IF M(F,3)>165 AND FNA(6)<>1 AND MI<60 AND M(F,13)=0 THEN M(F,12)=0
  404. 4040 IF M(F,3)<30 AND MI=60 AND DAY<8 AND M(F,13)=0 THEN M(F,13)=1:M(F,16)=2:M(F,12)=1:BR=1:GOTO 4080
  405. 4050 IF M(F,3)<40 AND M(F,4)<50 AND FNA(3)<>2 AND M(F,13)=0 AND MI<60 THEN M(F,12)=0
  406. 4060 IF M(F,3)<20 AND M(F,4)<50 AND FNA(3)<>2 AND M(F,13)=0 AND MI<60 THEN M(F,12)=0
  407. 4070 IF M(F,12)=1 AND M(F,13)=0 THEN M(F,13)=1:ME=0:KU=0:GOSUB *WRI:GOSUB *KAO:EF=F:LOCATE 5+(F-1)*12,11:PRINT "         ":GOSUB *DAPR
  408. 4080 IF M(F,12)=0 THEN TW=1:M(F,12)=1:M(F,4)=M(F,4)-2:LOCATE 5+(F-1)*12,11:PRINT USING "ÆxìÅ###ò¬";MI+10:WAIT 5
  409. 4090 NEXT:GOSUB *SCORE
  410. 4100 IF BR=1 THEN *PIPO
  411. 4110 IF TW=1 THEN MI=MI+10:WAIT 30:GOTO 4000 
  412. 4120 *MMAIN
  413. 4130 IF DAY=5 THEN GOSUB *SHINRO
  414. 4140 FOR F=1 TO 5:ET(F)=0:NEXT
  415. 4150 IF DAY>4 THEN GOTO 4190
  416. 4160 FOR F=1 TO 6
  417. 4170 ET(M(F,14))=ET(M(F,14))+1
  418. 4180 NEXT:ON CV GOSUB *SHIN,*KODATA,*CCRR
  419. 4190 GOSUB *KOCHO:IF KH<30 AND FNA(KH)<10 THEN M=57:MK$=EA$(M):GOSUB *MK:KP=6:KP2=4:GOSUB *KOP:BR=2:GOTO *PIPO
  420. 4200 KP=2:KP2=0:GOSUB *KOP
  421. 4210 CK=1:GOSUB *WD
  422. 4220 MOUSE 4,17,145,155,158
  423. 4230 IF MOUSE (2,0) THEN BEEP 363523,10,300:PLAY OFF:MX=MOUSE(0):MY=MOUSE(1):GOSUB 4330
  424. 4240 IF MOUSE (2,1) THEN GOSUB *KKK2
  425. 4250 IF FNA(150)=1 THEN F=FNA(6):GOSUB *MABA:GOSUB *OKI 
  426. 4260 F=FNA(6)
  427. 4270 IF FNA(50)=2 THEN IF M(F,5)=2 OR M(F,3)<40 THEN GOSUB *BIN
  428. 4280 IF FNA(50)=1 AND M(F,5)=3 THEN GOSUB *MABA
  429. 4290 IF FNA(50)=1 THEN IF M(F,5)=3 OR M(F,4)<40 THEN GOSUB *AKU
  430. 4300 IF FNA(40)=1 AND M(F,3)<30 THEN KU=3:GOSUB *KU ELSE KU=0:GOSUB *KU
  431. 4310 IF FNA(40)=1 AND M(F,3)<30 THEN ME=2:GOSUB *ME
  432. 4320 GOTO 4220
  433. 4330 FOR I=0 TO 14
  434. 4340 IF MX>15+I*16 AND MX<33+I*16 THEN X=I
  435. 4350 NEXT
  436. 4360 LINE(16+16*X,145)-(16+16*X+15,145+14),XOR,2,BF
  437. 4370 ALL3=0
  438. 4380 GOSUB *TOTAL
  439. 4390 ALL2=ALL
  440. 4400 '
  441. 4410 FX=X:GOSUB *CR:RP=1:GOSUB *STM
  442. 4420 EM=0:WAIT 30:ON FX+1 GOSUB *KOK,*BOOK,*PRT,*KUCHI,*PAPER,*MENSETSUA,*REST,*ETC,*DISK
  443. 4430 RP=1:GOSUB *STM:ON CV GOSUB *SHIN,*KODATA,*CCRR
  444. 4440 LINE(16+16*FX,145)-(16+16*FX+15,145+14),XOR,2,BF
  445. 4450 'GOSUB *MAN
  446. 4460 IF CC=1 THEN *CR
  447. 4470 FG=0:FOR F=1 TO 6
  448. 4480 IF M(F,11)=1 THEN FG=1
  449. 4490 NEXT
  450. 4500 GOSUB *TOTAL
  451. 4510 IF ALL2<>ALL THEN MI=MI+EM:GOSUB *SCORE
  452. 4520 IF EDD=1 THEN *DAYEND
  453. 4530 RETURN
  454. 4540 *KUCHI
  455. 4550 EM=20:MS$="ÿbé╖"
  456. 4560 CM$(1)="Žùêé╠Äû"
  457. 4570 CM$(2)="ÄGÆk"
  458. 4580 CM$(3)="ÅτÆk"
  459. 4590 KZ=3:GOSUB *WD
  460. 4600 IF CC=1 THEN RETURN
  461. 4610 GX=X+1
  462. 4620 *LUNK
  463. 4630 MS$=MS$+CM$(X+1):CM$(1)="û╩öÆé¡"
  464. 4640 CM$(2)="É^û╩û┌é╔"
  465. 4650 CM$(3)="ùDé╡é¡"
  466. 4660 KZ=3:GOSUB *WD
  467. 4670 IF CC=1 THEN *KUCHI
  468. 4680 GX2=X+1:GOTO *HANTEI
  469. 4690 *OWA
  470. 4700 MS$=MS$+CM$(X+1):CM$(1)="ɼÉ╤é╠Äû"
  471. 4710 CM$(2)="æ╘ôxé╠Äû"
  472. 4720 KZ=2:GOSUB *WD
  473. 4730 IF CC=1 THEN RETURN *KUCHI
  474. 4740 GOTO *LUNK
  475. 4750 *HANTEI
  476. 4760 M=-1:T=0:Y=0:IQ=0
  477. 4770 FOR F=1 TO 6
  478. 4780 M=0
  479. 4790 ON GX GOSUB *SHORAI,*ZATSU,*JYODAN
  480. 4800 NEXT:RETURN
  481. 4810 *SHORAI
  482. 4820 IF GX2=1 AND M(F,4)<50 AND FNA(4)=1 THEN M=19:M(F,3)=M(F,3)-1
  483. 4830 IF GX2=1 AND M(F,4)>49 AND FNA(2)=1 AND M=0 THEN M=46:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+2+FNA(5)
  484. 4840 IF GX2=1 AND M(F,2)<30 AND FNA(4)=1 AND M=0 THEN M=33:M(F,3)=M(F,3)-FNA(3)
  485. 4850 IF GX2=1 AND M(F,2)>49 AND FNA(2)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(3)+1
  486. 4860 IF GX2=1 AND M(F,3)<29 AND FNA(2)=1 AND M=0 THEN M=200
  487. 4870 IF GX2=2 AND M(F,4)<40 AND FNA(2)=1 THEN M=19:M(F,3)=M(F,3)-FNA(3):M(F,4)=M(F,4)-FNA(2)
  488. 4880 IF GX2=2 AND M(F,4)>39 AND FNA(4)=1 THEN M=46:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+3
  489. 4890 IF GX2=2 AND M(F,2)>50 AND FNA(3)=1 AND M=0 THEN M=23:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(4)
  490. 4900 IF GX2=2 AND M(F,2)<51 AND FNA(4)=1 AND M=0 THEN M=19:M(F,3)=M(F,3)-3:M(F,4)=M(F,4)-FNA(4)
  491. 4910 IF GX2=2 AND M(F,3)<21 AND FNA(4)=1 AND M=0 THEN M=200
  492. 4920 IF GX2=3 AND M(F,4)<10 AND FNA(3)=1 THEN M=15:M(F,3)=M(F,3)-FNA(3):M(F,4)=M(F,4)-FNA(3)
  493. 4930 IF GX2=3 AND M(F,4)<40 AND FNA(4)<>1 AND M=0 THEN M=13:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(5)+5
  494. 4940 IF GX2=3 AND M(F,4)>9 AND FNA(2)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(5)+2
  495. 4950 IF GX2=3 AND M(F,2)<90 AND M(F,2)>29 AND FNA(2)=1 AND M=0 THEN M=13:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(5)
  496. 4960 IF GX2=3 AND M(F,3)>100 AND FNA(2)=1 AND M=0 THEN M=200
  497. 4970 IF M>0 THEN GOSUB *SS
  498. 4980 RETURN
  499. 4990 *BEN
  500. 5000 M=0
  501. 5010 IF GX2=1 AND M(F,4)<30 AND FNA(2)=1 THEN M=17:M(F,2)=M(F,2)+FNA(5)
  502. 5020 IF GX2=1 AND M(F,3)<30 AND FNA(2)=1 AND M=0 THEN M=17:M(F,2)=M(F,2)+FNA(5)
  503. 5030 IF GX2=1 AND M(F,2)>70 AND FNA(2)=1 AND M=0 THEN M=25:M(F,3)=M(F,3)-3
  504. 5040 IF GX2=1 AND M(F,4)>80 AND FNA(4)=1 AND M=0 THEN M=11:M(F,3)=M(F,3)-2
  505. 5050 IF GX2=1 AND M(F,2)<20 AND FNA(4)=1 AND M=0 THEN M=200
  506. 5060 IF GX2=3 AND M(F,4)<30 AND FNA(2)=1 THEN M=15:M(F,3)=M(F,3)-FNA(3)
  507. 5070 IF GX2=3 AND M(F,4)>40 AND FNA(4)<>1 AND M(F,2)<90 AND M=0 THEN M=5:M(F,2)=M(F,2)+FNA(3):M(F,4)=M(F,4)+2:M(F,3)=M(F,3)+1
  508. 5080 IF GX2=3 AND M(F,2)<40 AND FNA(5)=1 AND M=0 THEN M=1:M(F,2)=M(F,2)-FNA(3):M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-3
  509. 5090 IF GX2=3 AND M(F,2)<49 AND M(F,3)>10 THEN M=9:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(7)
  510. 5100 IF GX2=3 AND FNA(35)=1 AND M=0 THEN M=50:M(F,2)=M(F,2)+FNA(10):M(F,3)=M(F,3)+FNA(10):M(F,4)=M(F,4)+FNA(10)
  511. 5110 IF GX2=3 AND FNA(35)=1 AND M=0 THEN M=13:M(F,2)=M(F,2)+FNA(10):M(F,3)=M(F,3)+FNA(10):M(F,4)=M(F,4)+FNA(20)
  512. 5120 IF GX2=3 AND FNA(4)=1 AND M=0 THEN M=200
  513. 5130 IF GX2=2 AND FNA(20)=1 AND M=0 THEN M=5:M(F,2)=M(F,2)+FNA(3):M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(3)
  514. 5140 IF GX2=2 AND M(F,2)>70 AND M(F,4)>70 AND FNA(4)=1 AND M=0 THEN M=5:M(F,2)=M(F,2)+FNA(4):M(F,3)=M(F,3)+FNA(4):M(F,4)=M(F,4)+FNA(4)
  515. 5150 IF GX2=2 AND M(F,2)<15 AND FNA(5)=1 AND M=0 THEN M=29:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-1
  516. 5160 IF GX2=2 AND M(F,2)<50 AND FNA(3)=1 AND M=0 THEN M=7:M(F,2)=M(F,2)+2:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+2
  517. 5170 IF GX2=2 AND M(F,4)<50 AND FNA(3)=1 AND M=0 THEN M=25:M(F,2)=M(F,2)-1:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-2
  518. 5180 IF GX2=2 AND M(F,4)>80 AND FNA(2)=1 AND M=0 THEN M=13:M(F,2)=M(F,2)+FNA(4):M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+FNA(3)
  519. 5190 IF GX2=2 AND M(F,3)<50 AND FNA(3)=1 AND M=0 THEN M=19:M(F,2)=M(F,2)-2:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-2
  520. 5200 IF GX2=2 AND M(F,3)<50 AND FNA(3)=1 AND M=0 THEN M=200
  521. 5210 IF M>0 THEN GOSUB *SS
  522. 5220 RETURN
  523. 5230 *KUSE
  524. 5240 M=0
  525. 5250 IF M(F,5)=2 THEN GOSUB *BIN:M(F,3)=M(F,3)-3
  526. 5260 IF M(F,5)=3 THEN GOSUB *MABA:GOSUB *AKU:M(F,4)=M(F,4)-3
  527. 5270 IF M(F,5)=4 THEN M(F,3)=M(F,3)+3:KU=5:GOSUB *KU
  528. 5280 IF M(F,5)=5 THEN M(F,3)=M(F,3)-2:M(F,4)=M(F,4)+2:IF FNA(2)=1 THEN GOSUB *WINK ELSE IF FNA(2)=1 THEN GOSUB *TSURAI ELSE GOSUB *NANI
  529. 5290 'IF M(F,5)=6 THEN M=28
  530. 5300 RETURN
  531. 5310 *HITKEY
  532. 5320 LOCATE 34,24:PRINT "üiâ{â^âôé≡ëƒé╡é─é¡é╛é│éóüj";
  533. 5330 IF MOUSE(2,0) OR MOUSE(2,1) THEN BEEP 363523,10,60:LOCATE 34,24:PRINT SPC(26);:RETURN
  534. 5340 GOTO 5330
  535. 5350 *TENCR
  536. 5360 'FOR F=1 TO 6
  537. 5370 'LOCATE 10+(F-1)*12,11:PRINT "     "
  538. 5380 'ER=1:WAIT 20
  539. 5390 RETURN
  540. 5400 *TEN
  541. 5410 COLOR 6:IF TN=100 THEN LOCATE 5+(F-1)*12,13:PRINT "ô╛ô_ü@û₧ô_":GOTO 5430
  542. 5420 LOCATE 5+(F-1)*12,13:PRINT USING "ô╛ô_  ##ô_";TN
  543. 5430 COLOR 7:ER=1:WAIT 30
  544. 5440 *SS
  545. 5450 IF M=200 THEN GOSUB *KUSE:M=0
  546. 5460 IF M<0 THEN M=0
  547. 5470 W=0:KY=0:LI=0
  548. 5480 W=0
  549. 5490 IF M=0 THEN 5820
  550. 5500 W=M:IF W<27 THEN M=M-(M(F,3)<50):W=27
  551. 5510 MU2=0:GOSUB *MU:ME=0:GOSUB *ME
  552. 5520 ' 
  553. 5530 CK1=0:A$=EA$(M):ME=0
  554. 5540 IF A$<>"" THEN PUT@A(16+(F-1)*48,5)-(16+(F-1)*48+47,36),EE%,PSET
  555. 5550 IF M=2 OR M=11 OR M=19 OR M=20 OR M=22 OR (M>24 AND M<30) OR M=33 OR M=38 OR M=39 OR M=81 OR M=82 OR M=67 OR M=45 OR M=47 OR M=48 OR M=49 OR M=71 OR M=79 OR M=80 THEN CK1=3:MU2=1:GOSUB *MU:ME=2:SI=SI-1:GOSUB *ME
  556. 5560 IF M=12 OR M=28 OR M=33 THEN SI=SI-2:CK1=3:MU2=4:GOSUB *MU:ME=5:GOSUB *ME
  557. 5570 IF M=3 OR M=4 OR M=23 OR M=24 OR M=30 OR M=31 OR M=32 OR M=34 OR M=35 OR M=48 OR M=38 OR M=40 OR M=41 OR M=22 OR M=72 THEN SI=SI-1:MU2=2:GOSUB *MU
  558. 5580 IF M=40 OR M=72 THEN ME=11:GOSUB *ME
  559. 5590 IF M=27 OR M=29 THEN CK1=3:MU2=3:GOSUB *MU
  560. 5600 IF M=28 THEN CK1=3:MU2=2:GOSUB *MU
  561. 5610 IF M=7 OR M=8 OR M=9 OR M=10 OR M=43 OR M=44 OR M=46 OR M=51 THEN ME=0:GOSUB *ME:CK1=2:MU2=0:SI=SI+1:GOSUB *MU:IF M=9 THEN ME=8:GOSUB *ME
  562. 5620 IF M=17 OR M=18 OR M=51 THEN ME=10:GOSUB *ME:CK1=4:MU2=0:SI=SI+1:GOSUB *MU
  563. 5630 IF M=17 OR M=18 THEN CK1=4
  564. 5640 IF M=15 OR M=16 THEN SI=SI-1:CK1=6:MU2=2:GOSUB *MU:ME=7:GOSUB *ME
  565. 5650 IF M=50 OR M=36 OR M=37 THEN SI=SI+1:CK1=9:MU2=0:GOSUB *MU:ME=0:GOSUB *ME:IF M=50 THEN CK1=8:ME=9:GOSUB *ME
  566. 5660 IF M=68 OR M=69 OR M=70 THEN SI=SI+2:CK1=2:MU2=0:GOSUB *MU:ME=0:GOSUB *ME
  567. 5670 IF M=12 OR M=16 OR M=20 OR M=26 OR M=33 THEN IF M(F,3)<19 AND FNA(2)=1 THEN MU2=2:GOSUB *MU:ME=5:GOSUB *ME:M=80:W=80:A$=EA$(M):M(F,3)=M(F,3)-2 ELSE IF M(F,13)<19 THEN MU2=4:ME=2:GOSUB *MU:GOSUB *ME:W=79:M=79:A$=EA$(M):M(F,3)=M(F,3)-2
  568. 5680 IF W<53 AND W>26 THEN W=27:GOSUB *KOE
  569. 5690 IF M>=67 THEN W=27:GOSUB *KOE
  570. 5700 FOR I=0 TO LEN(A$)/2-1
  571. 5710 '
  572. 5720 AA$=MID$(A$,I*2+1,2):IF LI>4 THEN KY=KY+1:LI=0
  573. 5730 LOCATE 5+(F-1)*12+LI*2,1+KY:PRINT AA$
  574. 5740 LI=LI+1
  575. 5750 KU=0:GOSUB *KU:WAIT 2
  576. 5760 KU=1:IF POW=1 THEN BEEP 363523,2,40+M(F,10)*20+FNA(30)
  577. 5770 GOSUB *KU:WAIT 6
  578. 5780 NEXT
  579. 5790 KU=CK1
  580. 5800 GOSUB *KU:IF KU=9 THEN KU=0:GOSUB *KU
  581. 5810 IF WER=0 AND FLAG=0 THEN ER=0:EF=F:GOSUB *DAPR ELSE WER=0
  582. 5820 WAIT 20:RETURN
  583. 5830 *ZATSU
  584. 5840 M=0:IF FNA(2)=1 THEN M(F,2)=M(F,2)+FNA(2)
  585. 5850 IF GX2=1 AND M(F,3)<30 AND FNA(2)=1 THEN M=17:M(F,3)=M(F,3)+FNA(3):M(F,2)=M(F,2)+2
  586. 5860 IF GX2=1 AND M(F,4)<25 AND FNA(2)=1 AND M=0 THEN M=5:M(F,4)=M(F,4)+FNA(4):M(F,2)=M(F,2)+FNA(4)
  587. 5870 IF GX2=1 AND FNA(3)=1 AND M=0 THEN M=46:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+2
  588. 5880 IF GX2=1 AND M(F,2)>90 AND FNA(4)=1 AND M=0 THEN M=25:M(F,3)=M(F,3)-1
  589. 5890 IF GX2=2 AND M(F,4)<15 AND FNA(4)=1 THEN M=19:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-FNA(3)
  590. 5900 IF GX2=2 AND M(F,2)>50 AND M(F,4)>50 AND FNA(3)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+3:M(F,2)=M(F,2)+FNA(4)
  591. 5910 IF GX2=2 AND M(F,2)>60 AND M(F,4)>60 AND FNA(4)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(3)
  592. 5920 IF GX2=2 AND M(F,4)>60 AND FNA(6)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(3)
  593. 5930 IF GX2=3 AND FNA(2)=1 THEN M=5:M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+1
  594. 5940 IF GX2=3 AND M(F,4)<39 AND FNA(2)=1 AND M=0 THEN M=19:M(F,3)=M(F,3)-FNA(2):M(F,4)=M(F,4)-FNA(2)
  595. 5950 IF GX2=3 AND M(F,3)<30 AND FNA(2)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+1:M(F,2)=M(F,2)+2
  596. 5960 IF GX2=3 AND FNA(3)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+1:M(F,2)=M(F,2)+2
  597. 5970 IF M>0 THEN GOSUB *SS
  598. 5980 RETURN
  599. 5990 *JYODAN
  600. 6000 IF GX2=1 AND M(F,4)>14 AND FNA(3)=1 THEN M=51:M(F,3)=M(F,3)+FNA(6):M(F,4)=M(F,4)+FNA(5)
  601. 6010 IF GX2=1 AND M(F,4)<15 AND FNA(3)=1 AND M=0 THEN M=11:M(F,3)=M(F,3)-1:M(F,4)=M(F,4)-FNA(2)
  602. 6020 IF GX2=1 AND M(F,2)>70 AND FNA(3)=1 AND M=0 THEN M=25:M(F,3)=M(F,3)-FNA(3)
  603. 6030 IF GX2=1 AND M(F,2)>80 AND FNA(4)=1 AND M=0 THEN M=17:M(F,3)=M(F,3)+FNA(6)
  604. 6040 IF GX2=2 AND FNA(4)=1 THEN M=17:M(F,3)=M(F,3)+3:M(F,4)=M(F,4)+3
  605. 6050 IF GX2=2 AND M(F,2)>70 AND FNA(2)=1 AND M=0 THEN M=17:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(8)
  606. 6060 IF GX2=2 AND M(F,4)<20 AND FNA(3)=1 AND M=0 THEN M=11:M(F,3)=M(F,3)-1:M(F,4)=M(F,4)-1
  607. 6070 IF GX2=2 AND M=0 THEN M=200
  608. 6080 IF GX2=3 AND M(F,4)<30 AND FNA(3)=1 THEN M=19:M(F,3)=M(F,3)-1:M(F,4)=M(F,4)-1
  609. 6090 IF GX2=3 AND FNA(8)=1 AND M=0 THEN M=17:M(F,3)=M(F,3)+5:M(F,4)=M(F,4)+7
  610. 6100 IF GX2=3 AND FNA(20)=1 AND M=0 THEN M=50:M(F,3)=M(F,3)+10:M(F,4)=M(F,4)+FNA(5)+10
  611. 6110 IF GX2=3 AND FNA(40)=1 AND M=0 THEN M=49:M(F,3)=M(F,3)-6:M(F,4)=M(F,4)-FNA(8)
  612. 6120 IF GX2=3 AND FNA(2)=1 AND M=0 THEN M=200
  613. 6130 IF M>0 THEN GOSUB *SS
  614. 6140 RETURN
  615. 6150 *ETC
  616. 6160 EM=0:MS$="é╗é╠æ╝"
  617. 6170 CM$(1)="ë╣É║énémü^énéeée"
  618. 6180 CM$(2)="ë╣èyéuénék"
  619. 6181 CM$(3)="ébéc"
  620. 6190 CM$(4)="édéméc"
  621. 6200 KZ=4:GOSUB *WD
  622. 6210 IF CC=1 THEN RETURN
  623. 6220 GX=X+1:IF GX<4 THEN CV=GX
  624. 6230 ON GX GOSUB *SOUND,*VOL,*CD,*EEND
  625. 6231 RETURN
  626. 6240 *KKK
  627. 6250 LOAD@ "cltt.tif",(243,167):GOSUB *CCRR
  628. 6260 RETURN
  629. 6270 *KKK2
  630. 6280 CV=CV+1:IF CV>3 THEN CV=1
  631. 6290 ON CV GOSUB *SHIN,*KODATA,*KKK
  632. 6300 RETURN
  633. 6301 *CD
  634. 6302 CDINF QA%:IF QA%(1)<>1 THEN MS$="ë╣èyÉΩùpébécé╔é╡é─é¡é╛é│éó":GOSUB *STM:GOSUB *HITKEY:RETURN *ETC
  635. 6303 CM$(1)="ébécü@éoéké`éx"
  636. 6304 CM$(2)="ébécü@érésénéo"
  637. 6305 MS$="ébécëëæt":KZ=2:GOSUB *WD:IF CC=1 THEN RETURN *ETC
  638. 6306 IF X=0 THEN CD PLAY
  639. 6307 IF X=1 THEN CD STOP
  640. 6308 GOTO *ETC
  641. 6310 *VOL
  642. 6320 EM=0:MS$="â{âèâàü[âÇ"
  643. 6330 CM$(1)="æσé½éó"
  644. 6340 CM$(2)="òüÆ╩"
  645. 6350 CM$(3)="żé│éó"
  646. 6360 CM$(4)="énéeée"
  647. 6370 KZ=4:GOSUB *WD
  648. 6380 IF CC=1 THEN RETURN
  649. 6381 P$=""
  650. 6382 IF X=0 THEN P$="V15"
  651. 6383 IF X=1 THEN P$="V12"
  652. 6384 IF X=2 THEN P$="V8"
  653. 6385 IF X=3 THEN P$="V0"
  654. 6390 PLAY P$,P$,P$,P$,P$,P$,P$,P$,P$,P$
  655. 6391 RETURN
  656. 6392 *EEND
  657. 6393 MS$="ÅIù╣èmöF"
  658. 6394 GOSUB *OK:IF CC=1 THEN RETURN *ETC
  659. 6395 GOSUB *PPP:RETURN *CEND
  660. 6400 *SOUND
  661. 6410 EM=0:MS$="ë╣É║":IF POW=0 THEN MS$=MS$+"üüéném" ELSE MS$=MS$+"üüénéeée"
  662. 6420 CM$(1)="éném"
  663. 6430 CM$(2)="énéeée"
  664. 6440 KZ=2:GOSUB *WD:IF CC=1 THEN RETURN *ETC
  665. 6450 IF X=0 THEN POW=0 ELSE POW=1
  666. 6460 RETURN *ETC
  667. 6470 *BAI
  668. 6480 FOR I=1 TO 5
  669. 6490 EI2=50+I*20+EP2:EI3=50+I*20+EP3:EI4=50+I*20+EP4
  670. 6500 LOCATE 28,18+I:PRINT USING "&       & ê╙=### Æm=### æ╘=###";RM$(I);EI4+ET(I);EI2+ET(I);EI3+ET(I);
  671. 6510 NEXT
  672. 6520 GOSUB *HITKEY:GOTO *ETC
  673. 6530 *SASU
  674. 6540 CC=0:IF FG=1 THEN *ALLCLR
  675. 6550 MOUSE 4,16,16,300,78
  676. 6560 IF MOUSE (2,0) THEN BEEP 363523,8,300:MX=MOUSE(0):MY=MOUSE(1):GOTO 6590
  677. 6570 IF MOUSE (2,1) THEN CC=1:BEEP 363523,8,150:RETURN
  678. 6580 GOTO 6550
  679. 6590 FOR I=0 TO 5
  680. 6600 IF MX>16+I*48 AND MX<47+I*48+16 THEN X=I
  681. 6610 NEXT:WAIT 10
  682. 6620 LINE(16+48*X,15+UY)-(16+48*X+47,75+UY),XOR,2,B
  683. 6630 IF M(X+1,11)=1 THEN M(X+1,11)=0 ELSE IF M(X+1,11)=0 THEN M(X+1,11)=1
  684. 6640 RETURN
  685. 6650 *ALLCLR
  686. 6660 FOR EF=0 TO 5
  687. 6670 IF M(EF+1,11)=1 THEN LINE(16+48*EF,15+UY)-(16+48*EF+47,75+UY),XOR,2,B
  688. 6680 M(EF+1,11)=0:NEXT:FG=0:RETURN
  689. 6690 *PAPER
  690. 6700 EM=40:MS$="âeâXâg [15ò¬],"
  691. 6710 CM$(1)="î┬Él"
  692. 6720 CM$(2)="æSê⌡"
  693. 6730 KZ=2:GOSUB *WD
  694. 6740 IF CC=1 THEN RETURN
  695. 6750 FF=X+1
  696. 6760 *PAPER2
  697. 6770 IF FF=1 THEN EM=15:GOSUB *SASU:F=X+1:AA$=NM$(F):IF CC=1 THEN GOSUB *ALLCLR:RETURN
  698. 6780 'IF FF=1 THEN *KOJIN
  699. 6790 IF FF=2 THEN EM=40:AA$=CM$(2)
  700. 6800 MS$="âeâXâgé≡"+AA$+"é╔"
  701. 6810 FOR TU=1 TO 5:CM$(TU)=RM$(TU)+"ùpûΓæΦ":NEXT
  702. 6820 KZ=5:GOSUB *WD
  703. 6830 IF CC=1 THEN GOSUB *ALLCLR:RETURN
  704. 6840 GX=X+1:IF FF=2 THEN GOSUB *TEST
  705. 6850 IF FF=1 THEN GOSUB *KOJIN
  706. 6860 RETURN
  707. 6870 *BOOK
  708. 6880 EM=20:MS$="û{"
  709. 6890 CM$(1)="ɵÉ╢é¬ô╟é▐"
  710. 6900 CM$(2)="É╢ôké╔ô╟é▄é╣éΘ"
  711. 6910 CM$(3)="é▌é±é╚é┼ô╟é▐"
  712. 6920 KZ=3:GOSUB *WD
  713. 6930 IF CC=1 THEN RETURN
  714. 6940 GX=X+1:ON GX GOSUB *JIBUN,*SEITO,*ZENIN
  715. 6950 RETURN
  716. 6960 *REST
  717. 6970 EM=10:MS$="æºö▓é½":GOSUB *OK:IF CC=1 THEN RETURN
  718. 6980 FOR F=1 TO 6:M=0 
  719. 6990 IF M(F,2)<30 AND FNA(3)<>1 THEN M=9:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(3)
  720. 7000 IF M(F,3)>160 THEN M=9:M(F,3)=M(F,3)-10:M(F,4)=M(F,4)+10+FNA(14)
  721. 7010 IF M(F,2)>90 AND M(F,4)>90 THEN M=25:M(F,3)=M(F,3)-FNA(2):M(F,4)=M(F,4)-FNA(4)
  722. 7020 IF M(F,3)<30 AND M(F,2)<30 AND FNA(5)=1 THEN M=50:M(F,3)=M(F,3)+FNA(22):M(F,4)=M(F,4)+FNA(12)
  723. 7030 IF M(F,3)<20 AND M(F,2)<20 AND FNA(4)=1 AND M=0 THEN M=15:M(F,3)=M(F,3)-FNA(5):M(F,4)=M(F,4)-FNA(5)
  724. 7040 IF M(F,3)>80 AND M(F,4)>80 AND M(F,2)>80 AND FNA(2)=1 THEN M=37:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(2)
  725. 7050 IF M(F,4)<40 AND FNA(3)=1 AND M=0 THEN M=37:M(F,3)=M(F,3)+FNA(5):M(F,4)=M(F,4)+FNA(5)
  726. 7060 IF M=0 AND FNA(2)=1 THEN M=9:M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(2)
  727. 7070 IF M=0 THEN M=200
  728. 7080 GOSUB *SS:NEXT
  729. 7090 RETURN
  730. 7100 *TEST
  731. 7110 M=0:FOR F=1 TO 6
  732. 7120 TN=M(F,2)-GX*15+INT(M(F,4)/10)+FNA(9)
  733. 7130 IF FNA(21)=1 THEN M(F,2)=M(F,2)+FNA(GX)
  734. 7140 IF FNA(5)=1 THEN TN=TN-FNA(5)
  735. 7150 IF TN>100 THEN TN=100 ELSE IF TN<0 THEN TN=0
  736. 7160 IF TN=0   THEN M=49:M(F,3)=M(F,3)-FNA(10):M(F,4)=M(F,4)-FNA(10)
  737. 7170 IF TN>0 AND TN<30 THEN M=31:M(F,3)=M(F,3)-FNA(8):M(F,4)=M(F,4)-FNA(GX)
  738. 7180 IF TN>29 AND TN<60 THEN M=32:M(F,3)=M(F,3)-FNA(4):M(F,4)=M(F,4)-FNA(3)
  739. 7190 IF TN>59 AND TN<70 THEN M=33:M(F,2)=M(F,2)+FNA(GX/2):M(F,4)=M(F,4)+1
  740. 7200 IF TN>69 AND TN<80 THEN M=34:M(F,2)=M(F,2)+FNA(GX/2)
  741. 7210 IF TN>79 AND TN<90 THEN M=35:M(F,2)=M(F,2)+FNA(GX):M(F,4)=M(F,4)+FNA(GX)
  742. 7220 IF TN>89 AND TN<95 THEN M=36:M(F,2)=M(F,2)+FNA(GX)
  743. 7230 IF TN>94 AND TN<99 THEN M=9:M(F,2)=M(F,2)+FNA(GX):M(F,4)=M(F,4)+FNA(GX)
  744. 7240 IF TN=99 THEN M=9:M(F,2)=M(F,2)+GX:M(F,3)=M(F,3)+GX
  745. 7250 IF TN=100 THEN M=37:M(F,3)=M(F,3)+GX+1:M(F,2)=M(F,2)+GX+1:M(F,4)=M(F,4)+GX+1
  746. 7260 GOSUB *TEN
  747. 7270 NEXT
  748. 7280 RETURN
  749. 7290 '
  750. 7300 *KOJIN
  751. 7310 YN=0:M=21
  752. 7320 IF FNA(2)=1 THEN M(F,4)=M(F,4)+1:M(F,3)=M(F,3)+1
  753. 7330 '
  754. 7340 IF M(F,4)<40 THEN M=48
  755. 7350 IF M(F,4)>39 AND M(F,4)<60 THEN M=23
  756. 7360 IF M(F,4)>59 AND M(F,4)<80 THEN M=13
  757. 7370 IF M(F,4)>79 AND M(F,4)<100 THEN M=17
  758. 7380 IF M(F,3)>99 THEN M=36
  759. 7390 GOSUB *SS
  760. 7400 GY=0:YN=0
  761. 7410 WAIT 40
  762. 7420 IF M(F,2)>GX*25 AND FNA(15)<>3 THEN YN=1:M=9 
  763. 7430 IF YN=1 THEN M(F,2)=M(F,2)+FNA(2*GX):M(F,3)=M(F,3)+FNA(2*GX)
  764. 7440 IF YN=0 THEN MS$="üiè╘êßéóüj":M(F,3)=M(F,3)-FNA(GX*2):M(F,2)=M(F,2)+1:M(F,4)=M(F,4)-FNA(GX*2):GOSUB *NO
  765. 7450 IF YN=1 THEN MS$="üiÉ│ë≡üj":M(F,4)=M(F,4)+FNA(6)::GOSUB *YES
  766. 7460 M=0
  767. 7470 IF M(F,2)>60+GX*30 AND YN=1 AND M=0 AND FNA(3)=1 THEN M=19:M(F,3)=M(F,3)-GX*3
  768. 7480 IF M(F,2)>GX*18+50 AND YN=1 AND M=0 AND FNA(2)=1 THEN M=37:M(F,4)=M(F,4)+GX*2
  769. 7490 IF YN=1 AND M=0 AND FNA(2)=1 THEN M=36
  770. 7500 IF YN=1 AND M=0 THEN M=7
  771. 7510 IF YN=0 AND M(F,4)>120 AND M=0 THEN IF FNA(3)=1 THEN M=50:M(F,3)=M(F,3)+FNA(GX*2):M(F,4)=M(F,4)+FNA(GX*2):M(F,2)=M(F,2)+FNA(GX) ELSE M=32
  772. 7520 IF YN=0 AND M(F,4)<121 AND M(F,4)>100 AND M=0 THEN M=34
  773. 7530 IF YN=0 AND M(F,4)<101 AND M(F,4)>80 AND M=0 THEN M=34
  774. 7540 IF YN=0 AND M(F,4)<81 AND M(F,4)>60 AND M=0 THEN M=71
  775. 7550 IF YN=0 AND M(F,4)<61 AND M(F,4)>40 AND M=0 THEN M=19:M(F,4)=M(F,4)-FNA(3)
  776. 7560 IF YN=0 AND M(F,4)<41 AND M(F,4)>20 AND M=0 THEN M=29:M(F,3)=M(F,3)-FNA(4)
  777. 7570 IF YN=0 AND M(F,4)<21 AND M=0 THEN M=49:M(F,3)=M(F,3)-5
  778. 7580 IF YN=0 THEN M(F,3)=M(F,3)-2:M(F,2)=M(F,2)-2:M(F,4)=M(F,4)-FNA(3)
  779. 7590 IF YN=1 THEN M(F,3)=M(F,3)+2:M(F,2)=M(F,2)+GX:M(F,4)=M(F,4)+FNA(3)
  780. 7600 GOSUB *STM:GOSUB *ALLCLR:WAIT 30:GOSUB *CR:GOSUB *SS
  781. 7610 GY=0
  782. 7620 GOTO *HITKEY
  783. 7630 *KOK
  784. 7640 EM=25:MS$="Ä÷ï╞"
  785. 7650 CM$(1)="èεû{"
  786. 7660 CM$(2)="ë₧ùp"
  787. 7670 KZ=2:GOSUB *WD
  788. 7680 IF CC=1 THEN RETURN
  789. 7690 GX=X+1:MS2$=CM$(GX)
  790. 7700 'RETURN
  791. 7710 *KOKU
  792. 7720 EM=25:MS$="Ä÷ï╞é╖éΘüi"+MS2$+"üj"
  793. 7730 CM$(1)="ìòö┬é≡Ägéφé╕Ä÷ï╞"
  794. 7740 CM$(2)="Ä÷ï╞ÆåÉSé┼Å¡é╡Åæé¡"
  795. 7750 CM$(3)="ìòö┬ÆåÉSé┼Ä÷ï╞é╖éΘ"
  796. 7760 CM$(4)="ìòö┬é╔Åæé¡é╛é»"
  797. 7770 KZ=4:GOSUB *WD
  798. 7780 IF CC=1 THEN *KOK
  799. 7790 GX2=X+1:ON GX GOTO *KIHO,*OUYO
  800. 7800 GOTO *KOKU
  801. 7810 *KIHO
  802. 7820 FOR F=1 TO 6:M=0
  803. 7830 IF M(F,2)>30 AND M(F,3)>20 AND FNA(3)=1 THEN M=5:M(F,2)=M(F,2)+FNA(2)
  804. 7840 IF GX2=4 AND FNA(4)<>1 AND M(F,4)>60 AND M(F,2)<60 THEN M=13:M(F,2)=M(F,2)+3+FNA(4)
  805. 7850 IF GX2=2 AND FNA(4)<>1 AND M(F,3)<40 AND M(F,4)<61 AND M(F,2)<60 AND M=0 THEN M=13:M(F,2)=M(F,2)+2+FNA(4):M(F,3)=M(F,3)+1
  806. 7860 IF GX2=4 AND M(F,4)<50 AND FNA(3)<>1 AND M=0 THEN M=15:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-2
  807. 7870 IF GX2=1 AND M(F,2)<30 AND FNA(3)<>1 AND M=0 THEN M=7:M(F,3)=M(F,3)+2:M(F,2)=M(F,2)+3+FNA(4)
  808. 7880 IF GX2=3 AND M(F,2)<60 AND M(F,4)>70 AND M(F,3)>50 AND FNA(3)<>1 AND M=0 THEN M=13:M(F,3)=M(F,3)+4:M(F,2)=M(F,2)+FNA(6):M(F,4)=M(F,4)+3
  809. 7890 IF (GX2=2 OR GX2=3) AND M(F,2)>90 AND M(F,4)<100 AND FNA(3)<>1 AND M=0 THEN M=25:M(F,3)=M(F,3)-2:M(F,2)=M(F,2)-FNA(3):M(F,4)=M(F,4)-2
  810. 7900 IF GX2=3 AND M(F,2)>90 AND M(F,4)>50 AND FNA(4)<>1 AND M=0 THEN M=5:M(F,3)=M(F,3)+2:M(F,2)=M(F,2)+FNA(3):M(F,4)=M(F,4)+2
  811. 7910 IF GX2=1 AND M(F,2)<50 AND M(F,4)<40 AND FNA(3)<>1 AND M=0 THEN M=5:M(F,4)=M(F,4)+2:M(F,2)=M(F,2)+2+FNA(2)
  812. 7920 IF (GX2=1 OR GX2=2) AND M(F,2)<50 AND FNA(4)<>1 AND M=0 THEN M=13:M(F,4)=M(F,4)+4:M(F,2)=M(F,2)+FNA(2)+2
  813. 7930 IF GX2=1 AND M(F,2)>80 AND FNA(4)<>1 AND M=0 THEN M=25:M(F,4)=M(F,4)-2:M(F,3)=M(F,3)-FNA(5)
  814. 7940 IF GX2=1 AND M(F,2)<40 AND FNA(4)<>1 AND M(F,4)>80 AND M=0 THEN M=5:M(F,4)=M(F,4)+2:M(F,3)=M(F,3)+2+FNA(2):M(F,2)=M(F,2)+FNA(4)
  815. 7950 IF GX2=3 AND M(F,4)>90 AND FNA(3)<>1 AND M=0 THEN M=13:M(F,3)=M(F,3)+1:M(F,2)=M(F,2)+FNA(4):M(F,4)=M(F,4)+3
  816. 7960 IF GX2=3 AND M(F,3)>60 AND M(F,4)>60 AND M(F,2)<70 AND FNA(3)<>1 AND M=0 THEN M=13:M(F,2)=M(F,2)+5+FNA(10)
  817. 7970 IF GX2=4 AND M(F,3)<20 AND FNA(3)=1 AND M=0 THEN M=200
  818. 7980 IF GX2=4 AND FNA(10)=1 AND M=0 THEN M=13:M(F,3)=M(F,3)+4:M(F,2)=M(F,2)+4:M(F,4)=M(F,4)+4
  819. 7990 IF (GX2=3 OR GX2=4) AND M(F,4)<20 AND FNA(4)<>1 AND M=0 THEN M=15:M(F,3)=M(F,3)-3:M(F,2)=M(F,2)-2:M(F,4)=M(F,4)-3
  820. 8000 '
  821. 8010 IF M THEN GOSUB *SS
  822. 8020 NEXT
  823. 8030 WAIT 10:RETURN
  824. 8040 *OUYO
  825. 8050 FOR F=1 TO 6:M=0
  826. 8060 IF GX2=3 AND M(F,2)<60 AND FNA(4)<>1 THEN M=1:M(F,3)=M(F,3)-2:M(F,2)=M(F,2)-1:M(F,4)=M(F,4)-2
  827. 8070 IF GX2=2 AND M(F,2)<50 AND FNA(4)<>1 THEN M=1:M(F,3)=M(F,3)-2:M(F,2)=M(F,2)-1:M(F,4)=M(F,4)-2
  828. 8080 IF GX2=4 AND M(F,2)<70 AND FNA(4)<>1 THEN M=1:M(F,3)=M(F,3)-2:M(F,2)=M(F,2)-1:M(F,4)=M(F,4)-2
  829. 8090 IF GX2=1 AND M(F,2)>49 AND M(F,4)>60 AND FNA(4)<>1 AND M=0 THEN M=7:M(F,2)=M(F,2)+3+FNA(5):M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+FNA(4)
  830. 8100 IF GX2=3 AND M(F,2)>89 AND M(F,4)>70 AND FNA(4)<>1 AND M=0 THEN M=7:M(F,2)=M(F,2)+5+FNA(3):M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(2)
  831. 8110 IF GX2=2 AND M(F,2)>59 AND M(F,4)>40 AND FNA(4)<>1 AND M=0 THEN M=7:M(F,2)=M(F,2)+4+FNA(2):M(F,3)=M(F,3)+FNA(2):M(F,4)=M(F,4)+FNA(2)
  832. 8120 IF GX2=4 AND M(F,2)<100 AND M(F,4)>90 AND FNA(2)=1 AND M=0 THEN M=13:M(F,2)=M(F,2)+5+FNA(3):M(F,3)=M(F,3)+1
  833. 8130 IF GX2=3 AND M(F,4)<41 AND FNA(2)=1 AND M=0 THEN M=15:M(F,2)=M(F,2)-FNA(3):M(F,4)=M(F,4)-2:M(F,3)=M(F,3)-3 
  834. 8140 IF GX2=3 AND M(F,3)<45 AND FNA(2)=1 AND M=0 THEN M=200
  835. 8150 IF GX2=2 AND M(F,2)>70 AND M(F,4)<90 AND FNA(5)<>2 AND M=0 THEN M=13:M(F,2)=M(F,2)+4+FNA(3):M(F,4)=M(F,4)+4+FNA(2)
  836. 8160 IF GX2=3 AND M(F,2)>90 AND M(F,2)<120 AND M(F,4)>50 AND FNA(5)<>2 AND M=0 THEN M=13:M(F,2)=M(F,2)+5+FNA(3):M(F,4)=M(F,4)+5+FNA(2)
  837. 8170 IF GX2=1 AND M(F,2)>70 AND M(F,4)<80 AND FNA(5)<>2 AND M=0 THEN M=5:M(F,2)=M(F,2)+2+FNA(2):M(F,4)=M(F,4)+4
  838. 8180 IF GX2>1 AND M(F,2)<50 AND M(F,4)<30 AND M=0 THEN M=11:M(F,2)=M(F,2)-FNA(3):M(F,4)=M(F,4)-FNA(2)
  839. 8190 IF GX2=2 AND M(F,2)>90 AND FNA(3)=1 AND M=0 THEN M=7:M(F,2)=M(F,2)+FNA(7):M(F,4)=M(F,4)+2+FNA(2)
  840. 8200 IF GX2=3 AND M(F,2)>110 AND FNA(5)<>2 AND M=0 THEN M=17:M(F,2)=M(F,2)+FNA(6):M(F,4)=M(F,4)+FNA(6)
  841. 8210 IF GX2=4 AND M(F,2)<40 AND FNA(5)<>2 AND M=0 THEN M=33:M(F,2)=M(F,2)-3:M(F,3)=M(F,3)-FNA(4)
  842. 8220 IF GX2=4 AND M(F,4)>100 AND M(F,2)>60 AND M(F,2)<110 AND M=0 THEN M=13:M(F,2)=M(F,2)+4+GX2:M(F,3)=M(F,3)+4+GX2:M(F,4)=M(F,4)+4+GX2
  843. 8230 IF GX2=1 AND M(F,2)>70 AND FNA(4)=1 AND M=0 THEN M=5:M(F,2)=M(F,2)+FNA(2)+2:M(F,3)=M(F,3)+FNA(3)
  844. 8240 IF GX2=3 AND M(F,2)<60 AND FNA(3)=1 AND M=0 THEN M=11:M(F,3)=M(F,3)-FNA(3)
  845. 8250 IF GX2=3 AND M(F,2)>60 AND M(F,4)>70 AND M(F,4)<110 AND M=0 AND FNA(3)=1 THEN M=13:M(F,2)=M(F,2)+FNA(4):M(F,4)=M(F,4)+4
  846. 8260 IF GX2=2 AND M(F,2)>90 AND M(F,4)>60 AND M=0 THEN M=7:M(F,2)=M(F,2)+FNA(4)+3:M(F,4)=M(F,4)+3
  847. 8270 IF M THEN GOSUB *SS
  848. 8280 NEXT
  849. 8290 WAIT 10
  850. 8300 RETURN
  851. 8310 *ZENIN
  852. 8320 EM=20:MS$="ë╜é≡ô╟é▄é╣é▄é╖é⌐üH"
  853. 8330 CM$(1)="è┤ô«é╖éΘû{"
  854. 8340 CM$(2)="û╩öÆéóû{"
  855. 8350 CM$(3)="É^û╩û┌é╚û{"
  856. 8360 KZ=3:GOSUB *WD
  857. 8370 IF CC=1 THEN *BOOK
  858. 8380 KJ=X+1
  859. 8390 FOR F=1 TO 6:M=0
  860. 8400 IF KJ=1 AND FNA(3)<>1 AND M(F,3)<80 THEN M=9:M(F,3)=M(F,3)+2+FNA(4):M(F,2)=M(F,2)+2+FNA(2):M(F,4)=M(F,4)+2
  861. 8410 IF KJ=1 AND FNA(3)<>1 AND M(F,3)>79 THEN M=25:M(F,3)=M(F,3)-FNA(5):M(F,2)=M(F,2)-2:M(F,4)=M(F,4)-2:M(F,3)=M(F,3)-1
  862. 8420 IF KJ=1 AND FNA(34)=1 AND M=0 THEN M=50:M(F,3)=M(F,3)+2+FNA(11):M(F,4)=M(F,4)+4+FNA(13):M(F,2)=M(F,2)+2+FNA(6)
  863. 8430 IF KJ=1 AND M(F,4)<40 AND M=0 AND FNA(3)<>1 THEN M=19:M(F,3)=M(F,3)-FNA(5):M(F,4)=M(F,4)-FNA(3):M(F,2)=M(F,2)+FNA(3)
  864. 8440 IF KJ=2 AND M(F,4)<50 AND FNA(5)=1 THEN M=17:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(2)
  865. 8450 IF KJ=2 AND FNA(3)=1 AND M=0 THEN M=17:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+FNA(2):M(F,2)=M(F,2)+FNA(2)
  866. 8460 IF KJ=2 AND M(F,3)<40 AND FNA(3)<>1 AND M=0 THEN M=51:M(F,3)=M(F,3)+3:M(F,4)=M(F,4)+FNA(5):M(F,2)=M(F,2)+FNA(4)
  867. 8470 IF KJ=2 AND M(F,4)<40 AND FNA(3)<>1 AND M=0 THEN M=51:M(F,3)=M(F,3)+3:M(F,4)=M(F,4)+FNA(8):M(F,2)=M(F,2)+FNA(4)
  868. 8480 IF KJ=2 AND M(F,2)>85 AND FNA(5)<>1 AND M=0 THEN M=11:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-FNA(3)
  869. 8490 IF KJ=2 AND M(F,4)<20 AND FNA(3)=1 AND M=0 THEN M=19:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-FNA(3)
  870. 8500 IF KJ=3 AND M(F,4)>60 AND M(F,2)>60 AND M(F,2)<110 AND FNA(3)<>1 THEN M=5:M(F,3)=M(F,3)+FNA(4):M(F,2)=M(F,2)+FNA(3)+1
  871. 8510 IF KJ=3 AND M(F,4)<60 AND M(F,3)<50 AND FNA(2)=1 AND M=0 THEN M=11:M(F,3)=M(F,3)-FNA(3):M(F,4)=M(F,4)-FNA(3)
  872. 8520 IF KJ=3 AND M(F,4)>50 AND M(F,2)>50 AND M(F,2)<80 AND FNA(3)<>1 AND M=0 THEN M=17:M(F,2)=M(F,2)+FNA(14)
  873. 8530 IF KJ=3 AND M(F,4)>80 AND FNA(3)<>1 AND M(F,2)<100 AND M=0 THEN M=17:M(F,4)=M(F,4)+3:M(F,2)=M(F,2)+FNA(7)
  874. 8540 IF KJ=3 AND FNA(25)=1 AND M=0 THEN M=50:M(F,3)=M(F,3)+FNA(10)+4:M(F,2)=M(F,2)+FNA(14)+2:M(F,4)=M(F,4)+4
  875. 8550 IF M=0 AND FNA(4)=1 THEN M=5:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+2
  876. 8560 GOSUB *SS
  877. 8570 NEXT
  878. 8580 RETURN
  879. 8590 *JIBUN
  880. 8600 IF KJ=4 THEN M=11:M(F,2)=M(F,2)-1:M(F,3)=M(F,3)-FNA(3):M(F,4)=M(F,4)-4
  881. 8610 EM=20:MS$="ë╜é≡ô╟é▌é▄é╖é⌐üH"
  882. 8620 CM$(1)="è┤ô«é╖éΘû{"
  883. 8630 CM$(2)="û╩öÆéóû{"
  884. 8640 CM$(3)="É^û╩û┌é╚û{"
  885. 8650 KZ=3:GOSUB *WD
  886. 8660 IF CC=1 THEN *BOOK
  887. 8670 '
  888. 8680 KJ=X+1
  889. 8690 FOR F=1 TO 6:M=0
  890. 8700 IF KJ=1 AND FNA(4)<>1 THEN M=9:M(F,3)=M(F,3)+4+FNA(3):M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(2)-1
  891. 8710 IF KJ=1 AND M(F,2)>80 AND FNA(3)<>1 AND M=0 THEN M=19:M(F,3)=M(F,3)-FNA(2):M(F,4)=M(F,4)-2:M(F,2)=M(F,2)-FNA(2)
  892. 8720 IF KJ=1 AND FNA(20)=2 AND M=0 THEN M=50:M(F,3)=M(F,3)+6+FNA(12):M(F,4)=M(F,4)+2+FNA(10):M(F,2)=M(F,2)+FNA(10)-1
  893. 8730 IF KJ=1 AND FNA(32)=2 AND M(F,3)<40 AND M=0 THEN M=47:M(F,3)=M(F,3)-FNA(12):M(F,4)=M(F,4)-FNA(10):M(F,2)=M(F,2)-FNA(10)
  894. 8740 IF KJ=2 AND FNA(4)<>1 THEN M=17:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+FNA(2)
  895. 8750 IF KJ=2 AND M=0 AND FNA(2)=1 AND M(F,4)>80 THEN M=25:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-FNA(3)
  896. 8760 IF KJ=2 AND M=0 AND FNA(2)=1 AND M(F,2)>80 THEN M=25:M(F,3)=M(F,3)-2:M(F,4)=M(F,4)-FNA(3)
  897. 8770 IF KJ=2 AND M=0 AND FNA(2)=1 AND M(F,3)<40 THEN M=17:M(F,3)=M(F,3)+4:M(F,4)=M(F,4)+FNA(3):M(F,2)=M(F,2)+2
  898. 8780 IF KJ=2 AND M=0 AND FNA(2)=1 AND M(F,4)<40 THEN M=51:M(F,4)=M(F,4)+4:M(F,4)=M(F,4)+FNA(6):M(F,2)=M(F,2)+FNA(3)
  899. 8790 IF KJ=3 AND M=0 AND FNA(16)=1 THEN M=50:M(F,3)=M(F,3)+FNA(10)
  900. 8800 IF KJ=3 AND M=0 AND FNA(2)=1 AND M(F,2)>60 THEN M=5:M(F,2)=M(F,2)+FNA(2)
  901. 8810 IF KJ=3 AND M(F,4)>60 AND FNA(4)=1 AND M=0 THEN M=5:M(F,2)=M(F,2)+FNA(2)
  902. 8820 IF KJ=3 AND M(F,2)<40 AND FNA(2)=1 AND M=0 THEN M=1:M(F,2)=M(F,2)-FNA(2):M(F,4)=M(F,4)-FNA(3)
  903. 8830 IF KJ=3 AND M(F,4)<40 AND FNA(2)=1 AND M=0 THEN M=15:M(F,2)=M(F,2)-FNA(2):M(F,3)=M(F,3)-FNA(3)
  904. 8840 IF KJ=3 AND M(F,3)<40 AND FNA(2)=1 AND M=0 THEN M=47:M(F,2)=M(F,2)-FNA(2):M(F,3)=M(F,3)-FNA(3)
  905. 8850 IF M=0 AND FNA(9)=1 THEN M=5:M(F,2)=M(F,2)+1:M(F,3)=M(F,3)+FNA(3):M(F,4)=M(F,4)+2
  906. 8860 GOSUB *SS
  907. 8870 NEXT
  908. 8880 RETURN
  909. 8890 *SEITO
  910. 8900 GOSUB *ALLCLR
  911. 8910 TP=1:GOSUB *SASU
  912. 8920 CW=X+1:IF CC=1 THEN RETURN
  913. 8930 F=X+1:M=21:M(F,4)=M(F,4)+FNA(3)+2:M(F,3)=M(F,3)+3+FNA(3):M(F,2)=M(F,2)+2+FNA(2):GOSUB *SS
  914. 8940 FOR F=1 TO 6:M=0
  915. 8950 IF CW=F THEN 9020
  916. 8960 IF M(F,4)>49 AND FNA(4)=1 THEN M=5:M(F,2)=M(F,2)+1
  917. 8970 IF M(F,4)<50 AND FNA(3)<>2 AND M=0 THEN M=15:M(F,3)=M(F,3)-1:M(F,2)=M(F,2)-2
  918. 8980 IF M(CW,2)>70 AND FNA(2)=1 AND M=0 THEN M=5:M(F,3)=M(F,3)+FNA(M(CW,2)/20)
  919. 8990 IF M(CW,2)>80 AND FNA(2)=1 AND M=0 THEN M=9:M(F,3)=M(F,3)+2:M(F,2)=M(F,2)+FNA(3)
  920. 9000 IF M=0 AND FNA(5)=1 THEN M=1:M(F,2)=M(F,2)-2:M(F,4)=M(F,4)-2
  921. 9010 GOSUB *SS
  922. 9020 NEXT:GOSUB *ALLCLR:RETURN
  923. 9030 '*FUZA
  924. 9040 'FOR F=1 TO 6
  925. 9050 'IF M(F,12)=0 THEN 9090
  926. 9060 'M=96
  927. 9070 'M(F,2)=M(F,2)-FNA(2):M(F,4)=M(F,4)-1:M(F,3)=M(F,3)-FNA(3)
  928. 9080 'GOSUB *SE
  929. 9090 'NEXT:RETURN
  930. 9100 *PRT
  931. 9110 EM=30:MS$="âvâèâôâg[10ò¬]-"
  932. 9120 CM$(1)="èεæb"
  933. 9130 CM$(2)="ë₧ùp"
  934. 9140 CM$(3)="ÉFüX"
  935. 9150 KZ=3:GOSUB *WD
  936. 9160 IF CC=1 THEN RETURN
  937. 9170 KJ=X+1
  938. 9180 MS$=CM$(KJ)+"é≡ë╜ûçüH[10ò¬]-"
  939. 9190 CM$(1)="éPûç"
  940. 9200 CM$(2)="éQûç"
  941. 9210 CM$(3)="éRûç"
  942. 9220 KZ=3:GOSUB *WD
  943. 9230 IF CC=1 THEN RETURN
  944. 9240 MS=X+1:EM=MS*10
  945. 9250 MS$="ÆåÉgé╠öZé│é═üH"
  946. 9260 CM$(1)="éΣé┴é╜éΦ"
  947. 9270 CM$(2)="é╙é┬éñ"
  948. 9280 CM$(3)="ârâbâVâè"
  949. 9290 KZ=3:GOSUB *WD
  950. 9300 IF CC=1 THEN RETURN
  951. 9310 KS=X+1
  952. 9320 FOR F=1 TO 6:M=0
  953. 9330 IF KJ=1 AND MS=2 AND KS=1 AND FNA(3)<>1 AND M(F,2)<40 THEN M(F,2)=M(F,2)+FNA(3)+3:M=13
  954. 9340 IF KJ=1 AND MS=1 AND KS=2 AND FNA(4)=1 AND M(F,2)<60 THEN M(F,2)=M(F,2)+1:M(F,3)=M(F,3)+1:M=13
  955. 9350 IF KJ=1 AND MS=1 AND KS=3 AND M(F,4)>70 AND FNA(4)<>1 AND M(F,2)<120 AND M=0 THEN M(F,2)=M(F,2)+2:M(F,3)=M(F,3)+1:M=13
  956. 9360 IF KJ=1 AND MS=1 AND KS=1 AND M(F,4)<40 AND FNA(4)<>1 AND M(F,2)<40 AND M=0 THEN M(F,2)=M(F,2)+2:M(F,4)=M(F,4)+1:M=13
  957. 9370 IF KJ=1 AND MS=3 AND KS=3 AND FNA(3)=1 THEN M=25:M(F,3)=M(F,3)-3:M(F,2)=M(F,2)-1:M(F,4)=M(F,4)-2
  958. 9380 IF KJ=2 AND MS=3 AND KS=3 AND M(F,2)>79 AND FNA(2)=1 AND M(F,2)<130 THEN M=7:M(F,2)=M(F,2)+3
  959. 9390 IF KJ=2 AND MS=1 AND KS=1 AND FNA(2)=1 AND M(F,4)>30 AND M(F,2)>40 AND M(F,2)<100 THEN M=36:M(F,2)=M(F,2)+3
  960. 9400 IF KJ=3 AND MS=3 AND KS=3 AND M(F,4)>80 AND FNA(3)<>2 AND M(F,2)<110 THEN M=13:M(F,2)=M(F,2)+3+FNA(3):M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+1
  961. 9410 IF KJ=2 AND MS=1 AND KS=3 AND M(F,4)>90 AND FNA(3)<>2 AND M(F,2)>90 THEN M=13:M(F,2)=M(F,2)+FNA(3):M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+2
  962. 9420 IF KJ=3 AND MS=1 AND KS=3 AND M(F,4)>80 AND FNA(3)<>2 AND M(F,2)<110 THEN M=13:M(F,2)=M(F,2)+2:M(F,3)=M(F,3)+1:M(F,4)=M(F,4)+1
  963. 9430 IF M<>0 THEN 9490
  964. 9440 IF M=0 THEN W1=-(KJ=1 AND M(F,2)<50)-(KJ=2 AND M(F,2)>49)-(KJ=3 AND M(F,2)>40)-(MS=1 AND M(F,4)<30)-(MS=2 AND M(F,4)>40)-(MS=3 AND M(F,4)>80)-(KS=3 AND M(F,4)>80)-(KS=2 AND M(F,4)>50)-(KS=1 AND M(F,4)<51)
  965. 9450 IF W1=0 AND FNA(2)=1 THEN M=19:M(F,4)=M(F,4)-MS:M(F,3)=M(F,3)-MS
  966. 9460 IF W1=1 AND FNA(3)<>1 THEN M=13:M(F,4)=M(F,4)+2:M(F,3)=M(F,3)+2:M(F,2)=M(F,2)+MS
  967. 9470 IF W1=2 AND FNA(3)<>1 THEN M=17:M(F,2)=M(F,2)+MS:M(F,3)=M(F,3)+2:M(F,4)=M(F,4)+2
  968. 9480 IF W1=3 AND FNA(3)<>1 THEN M=7:M(F,2)=M(F,2)+1+MS:M(F,3)=M(F,3)+3:M(F,4)=M(F,4)+3
  969. 9490 IF M THEN GOSUB *SS
  970. 9500 NEXT
  971. 9510 RETURN
  972. 9520 *SEA
  973. 9530 P$="T150O4L8"
  974. 9540 PLAY P$,P$,P$
  975. 9550 PLAY"@23O3C+F+>F+<F+>F+4","O3@23C+2.","@23O3F+2."
  976. 9560 PLAY"<F+>C+F+G+F+","F+2C+8","C+2F+8"
  977. 9570 PLAY"C+F+G+F+2","F+4C+>F+2<","G+4BF+2"
  978. 9580 PLAY"O3F+4C+4D2","O3G+4F+4F+2","O3C+F+C+G+AG+A4"
  979. 9590 PLAY"E4C+2F+4","G4F+2AG+","C+EG+F+4.F+R"
  980. 9600 PLAY"C+4E4C+4","G+4E4F+4","F+C+EEF+E"
  981. 9610 PLAY"F+2C+4C+4","G+2G+4F+4","F+F+G+EG+4F+4"
  982. 9620 PLAY"C+4E&E16C+2F+2","EC+G+&G+16F+2A2","C+C+EC+16<B>C+EC+F+2"
  983. 9630 RETURN
  984. 9640 *DAYEND
  985. 9650 GOSUB *ALLCLR
  986. 9660 GOSUB *KINKON
  987. 9670 GOSUB *CR
  988. 9680 FOR F=1 TO 6:QAZ(F)=0:NEXT
  989. 9690 FOR QF=1 TO 6:
  990. 9700 F=FNA(6):IF QAZ(F)=0 THEN QAZ(F)=1 ELSE 9700
  991. 9710 IF M(F,4)<30 AND MI>4 THEN M(F,3)=M(F,3)-3:M=81:GOTO 9830
  992. 9720 IF M(F,4)<40 AND MI>9 THEN M(F,3)=M(F,3)-2:M=82:GOTO 9830
  993. 9730 IF M(F,4)<50 AND MI>14 THEN M(F,3)=M(F,3)-2:M=83:GOTO 9830
  994. 9740 IF M(F,4)<60 AND MI>19 THEN M(F,3)=M(F,3)-2:M=84:GOTO 9830
  995. 9750 IF M(F,4)>90 AND MI<6 AND FNA(3)=1 THEN M(F,3)=M(F,3)-2:M=85:GOTO 9830
  996. 9760 M=39
  997. 9770 IF M(F,3)>120 THEN M=43
  998. 9780 IF M(F,3)<121 THEN M=42
  999. 9790 IF M(F,3)<91 THEN M=41
  1000. 9800 IF M(F,3)<60 THEN M=0
  1001. 9810 IF M(F,3)<50 THEN M=40
  1002. 9820 IF M(F,3)<30 THEN M=39
  1003. 9830 WER=1:GOSUB *SS
  1004. 9840 GOSUB *DWRI:GOSUB *CR
  1005. 9850 WAIT 30
  1006. 9860 NEXT
  1007. 9870 GOSUB *SEA:MS$="êΩô·é¬ÅIéφéΦé▄é╡é╜":GOSUB *STM
  1008. 9880 MS$="ìíô·é╠ô╛ô_é═üEüEüE":GOSUB *MSG 
  1009. 9890 GOSUB *TOTAL
  1010. 9900 ALL4=ALL-ALL1
  1011. 9910 FOR I=0 TO ALL4:CQ=INT(I/40):IF CQ<1 THEN CQ=1 ELSE IF CQ>7 THEN CQ=7
  1012. 9920 COLOR CQ:LOCATE 40,20:PRINT USING "####ô_";I
  1013. 9930 'BEEP 1:BEEP 0
  1014. 9940 BEEP 363523,10,260+I
  1015. 9950 NEXT:COLOR 7
  1016. 9960 IF FNA(3)<>1 THEN EP2=EP2+FNA(3) ELSE EP2=EP2-FNA(3)
  1017. 9970 IF FNA(3)=1 THEN EP3=EP3+FNA(3) ELSE EP3=EP3-FNA(3)
  1018. 9980 IF FNA(3)=1 THEN EP4=EP4+FNA(3) ELSE EP4=EP4-FNA(3)
  1019. 9990 SC=SC+ALL4:GOSUB *SCORE
  1020. 10000 M=74:KH=KH+10
  1021. 10010 IF ALL4<300 THEN M=56
  1022. 10020 IF ALL4<200 THEN M=53
  1023. 10030 IF ALL4<150 THEN M=54:KH=KH-10
  1024. 10040 IF ALL4<100 THEN M=55:KH=KH-10
  1025. 10050 IF ALL4<80 THEN M=57:KH=KH-10
  1026. 10060 IF ALL4<50 THEN M=58:KH=KH-10
  1027. 10070 WAIT 20:MK$=EA$(M):GOSUB *MK:WAIT 30
  1028. 10080 GOSUB *HITKEY:PLAY OFF
  1029. 10090 HO=1:MI=0:EDD=0:M=5:DAY=DAY-1:GOSUB *SCORE:GOTO *MAIN
  1030. 10100 *MENSETSUA
  1031. 10110 EM=10:MS$="ÆNé╞û╩É┌é╡é▄é╖é⌐":GOSUB *STM
  1032. 10120 GOSUB *ALLCLR:TP=1:GOSUB *SASU
  1033. 10130 F=X+1:IF CC=1 THEN GOSUB *ALLCLR:RETURN 
  1034. 10140 M=21:GOSUB *SS
  1035. 10150 MS$=NM$(F)+"é╞û╩É┌"
  1036. 10160 CM$(1)="ô¬é¬éóéóé╠é╔éαé┴é╜éóé╚éó"
  1037. 10170 CM$(2)="éαé┴é╞ò╫ï¡é╡é╚é│éó"
  1038. 10180 CM$(3)="ɵÉ╢é╞êΩÅÅé╔èµÆúéδéñ"
  1039. 10190 CM$(4)="É^û╩û┌é╔é╚éδéñ"
  1040. 10200 CM$(5)="é▒é╠é▄é▄é╢éßæ╩û┌é╛éµ"
  1041. 10210 KZ=5:GOSUB *WD
  1042. 10220 IF CC=1 THEN 10710
  1043. 10230 EX=X+1
  1044. 10240 MS$=CM$(X+1)
  1045. 10250 CM$(1)="ùDé╡é¡"
  1046. 10260 CM$(2)="î╡é╡é¡"
  1047. 10270 KZ=2:GOSUB *WD
  1048. 10280 GX2=X+1
  1049. 10290 IF CC=1 THEN 10710
  1050. 10300 IF EX=1 AND GX2=1 THEN MS$="ô¬é¬éóéóé╠é╔éαé┴é╜éóé╚éóéµ"
  1051. 10310 IF EX=1 AND GX2=2 THEN MS$="ô¬é¬éóéóé╛é»é╢éßæ╩û┌é╛üI"
  1052. 10320 IF EX=2 AND GX2=1 THEN MS$="éαéñÅ¡é╡ò╫ï¡é╠ò√é≡èµÆúé┴é─é¡é╛é│éó"
  1053. 10330 IF EX=2 AND GX2=2 THEN MS$="önÄ¡é⌐é¿æOé═üI"
  1054. 10340 IF EX=3 AND GX2=1 THEN MS$="ɵÉ╢é╞êΩÅÅé╔èµÆúéΦé▄é╡éσéñ"
  1055. 10350 IF EX=3 AND GX2=2 THEN MS$="é¿æOé═éΓéΘïCéáéΘé╠é⌐üI"
  1056. 10360 IF EX=4 AND GX2=1 THEN MS$="òsù╟é═éóé»é╚éóéµ"
  1057. 10370 IF EX=4 AND GX2=2 THEN MS$="âKâLé╛é╚éƒé¿æOé═üI"
  1058. 10380 IF EX=5 AND GX2=1 THEN MS$="èµÆúéΩé╬æσÅΣòvüI"
  1059. 10390 IF EX=5 AND GX2=2 THEN MS$="é▒é╠é▄é▄é┼Ä≤é⌐éΘé╞Ävé┴é─éΘé╠é⌐üI"
  1060. 10400 GOSUB *STM
  1061. 10410 MS$="éPéOò¬îπüEüEüE"
  1062. 10420 WAIT 40:GOSUB *MSG:WAIT 20
  1063. 10430 IF EX=1 AND GX2=1 THEN GX=FNA(2)+1:IF M(F,2)>50 AND FNA(3)<>1 THEN OK=6+FNA(3) ELSE IF M(F,2)<30 THEN OK=FNA(6)
  1064. 10440 IF EX=1 AND GX2=2 AND M(F,2)>80 AND (M(F,4)<70 OR M(F,3)<70) THEN OK=7+FNA(4) ELSE IF M(F,2)<60 THEN OK=FNA(3)
  1065. 10450 IF EX=2 AND GX2=1 THEN GX=2:IF M(F,2)<60 AND FNA(3)<>1 THEN OK=6+FNA(5) ELSE IF M(F,2)>70 THEN OK=FNA(8)
  1066. 10460 IF EX=2 AND GX2=2 THEN GX=2:IF M(F,2)<80 AND M(F,3)>90 AND M(F,4)>90 THEN OK=6+FNA(5) ELSE IF M(F,2)>90 THEN OK=FNA(8)
  1067. 10470 IF EX=3 AND GX2=1 THEN GX=4:IF M(F,GX)<42 AND FNA(5)<>1 THEN OK=8+FNA(3) ELSE IF M(F,GX)>80 THEN OK=2+FNA(6)
  1068. 10480 IF EX=3 AND GX2=2 THEN GX=4:IF M(F,3)<60 AND FNA(4)<>1 THEN OK=3+FNA(4) ELSE OK=5+FNA(5)
  1069. 10490 IF EX=4 AND GX2=1 AND M(F,3)<40 AND FNA(4)<>1 THEN GX=3:OK=5+FNA(6)
  1070. 10500 IF EX=4 AND GX2=2 THEN GX=3:IF M(F,3)<40 AND M(F,2)<30 THEN OK=4+FNA(5) ELSE IF M(F,3)<40 AND M(F,2)>80 THEN OK=10+FNA(2)
  1071. 10510 IF EX=5 AND GX2=1 THEN GX=4:OK=FNA(4)+4
  1072. 10520 IF EX=5 AND GX2=2 AND FNA(2)=1 THEN GX=4:OK=FNA(5)+3
  1073. 10530 IF GX2=2 AND M(F,3)>150 THEN GX=3:M(F,3)=M(F,3)-13-FNA(10):OK=2+FNA(3)
  1074. 10540 IF GX<2 OR GX>4 THEN GX=1+FNA(3)
  1075. 10550 IF OK=0 THEN OK=FNA(12)
  1076. 10560 *HANT2
  1077. 10570 RT=1
  1078. 10580 IF OK=1 THEN M(F,GX)=M(F,GX)-FNA(10):M(F,4)=M(F,4)-FNA(10):M(F,3)=M(F,3)-FNA(15):M=80:GOSUB *SCR
  1079. 10590 IF OK=2 THEN M(F,GX)=M(F,GX)-FNA(9):M(F,4)=M(F,4)-FNA(7):M=47:GOSUB *SCR:M(F,3)=M(F,3)-FNA(5):M=39:GOSUB *SCR
  1080. 10600 IF OK=3 THEN M(F,GX)=M(F,GX)-FNA(5):M(F,4)=M(F,4)-FNA(4):M=33:GOSUB *SCR:M(F,3)=M(F,3)-FNA(4):M=49:GOSUB *SCR
  1081. 10610 IF OK=4 THEN M(F,GX)=M(F,GX)-FNA(8):M=27:GOSUB *SCR
  1082. 10620 IF OK=5 THEN M=29:M(F,GX)=M(F,GX)-FNA(4):GOSUB *SCR
  1083. 10630 IF OK=6 THEN M=5:M(F,GX)=M(F,GX)+FNA(4)+3:GOSUB *SCR
  1084. 10640 IF OK=7 THEN M=13:M(F,GX)=M(F,GX)+FNA(14):GOSUB *SCR
  1085. 10650 IF OK=8 THEN M=28:M(F,GX)=M(F,GX)+FNA(6)+3:GOSUB *SCR:M(F,4)=M(F,4)+FNA(11)+3:M=13:GOSUB *SCR
  1086. 10660 IF OK=9 THEN M(F,GX)=M(F,GX)+5:M=44:GOSUB *SCR:M(F,4)=M(F,4)+FNA(7):M=9:GOSUB *SCR:M(F,3)=M(F,3)+2:M=43:GOSUB *SCR
  1087. 10670 IF OK=10 THEN M(F,GX)=M(F,GX)+FNA(14)+2:M(F,3)=M(F,3)+FNA(19):M(F,4)=M(F,4)+FNA(12):M=50:GOSUB *SCR
  1088. 10680 IF OK=11 THEN M(F,GX)=M(F,GX)+FNA(5)+7:M(F,3)=M(F,3)+5+FNA(6):M(F,4)=M(F,4)+FNA(5)+2:M=9:GOSUB *SCR
  1089. 10690 IF OK=12 THEN M(F,GX)=M(F,GX)+7+FNA(3):M=44:GOSUB *SCR:M(F,3)=M(F,3)+FNA(13):M(F,4)=M(F,4)+FNA(13):M=43:GOSUB *SCR
  1090. 10700 IF OK=0 THEN M=4:GOSUB *SCR
  1091. 10710 WAIT 50
  1092. 10720 GOSUB *ALLCLR:RETURN
  1093. 10730 *SEB
  1094. 10740 P$="T280L8O4Q8":PLAY P$,P$,P$
  1095. 10750 B$="O3C+2F+>F+4.<"
  1096. 10760 AP$="@25Q7O3GBGBGBGB"
  1097. 10770 PLAY "@1O3B>C+F+4.C+4.","@4O2R4F+2.","@25"+B$
  1098. 10780 PLAY "<B>C+D+C+<B>C+4.","B2C+2",B$
  1099. 10790 PLAY "C+<BA4.>C+E4","C+4A2E4",B$
  1100. 10800 PLAY "EDC+4<BA4.","E4C+4A2",B$
  1101. 10810 PLAY ">EDC+4<B>C+4.","E4C+4A2",B$
  1102. 10820 PLAY "EDC+4BA4.","E4C+4<A2",B$
  1103. 10830 'FOR I=1 TO 2
  1104. 10840 PLAY "O3F+4B4E4A4",AP$,"L4BBBB"
  1105. 10850 PLAY "B4E4A4D4",AP$,"AAAA"
  1106. 10860 'NEXT
  1107. 10870 PLAY "E4G4A4B4",AP$,"GGGG"
  1108. 10880 PLAY ">C4<G4A2",AP$,">CC<BA"
  1109. 10890 PLAY "E4A4E4B4",AP$,"EAEE"
  1110. 10900 PLAY "E4BAB4>D4",AP$,"EEEE"
  1111. 10910 PLAY "E2",AP$,"EEEE"
  1112. 10920 PLAY "D2",AP$,"DDDD"
  1113. 10930 PLAY "<G1&G1","<G1&G1","<G1&G1"
  1114. 10940 RETURN
  1115. 10950 *GAMEOVER
  1116. 10960 PLAY OFF:PLAY"T140L2O3@34CC4.C8C2D+4.D8D4.C8C4.<B8>C","T140L2O2@34FF4.F8F2G+4.G8G4.F8F4.E8F","T140L2O3@34FF4.F8F2G+4.G8G4.F8F4.E8F":RETURN
  1117. 10970 *LOD
  1118. 10980 CLOSE
  1119. 10990 EM=0
  1120. 11000 FOR Q=1 TO 6
  1121. 11010 IF JU=0 THEN OPEN "I",#1,"NO"+MID$(STR$(Q),2)
  1122. 11020 IF JU=1 THEN OPEN "I",#1,"NN"+MID$(STR$(Q),2)
  1123. 11030 INPUT #1,CM$:INPUT #1,TM$(Q):INPUT #1,DT$(Q):INPUT #1,CM$(Q)
  1124. 11040 'IF UO=1 THEN 9520
  1125. 11050 '
  1126. 11060 INPUT #1,SCR,R,R,DAYR,R,R,R,R,R,R,R
  1127. 11070 FOR I=1 TO 6
  1128. 11080 INPUT #1,N$
  1129. 11090 NEXT
  1130. 11100 FOR I=1 TO 6
  1131. 11110  FOR J=1 TO 20
  1132. 11120 INPUT #1,R
  1133. 11130  NEXT
  1134. 11140 NEXT
  1135. 11150 CLOSE
  1136. 11160 '
  1137. 11170 CM$(Q)=CM$(Q)+STR$(DAYR)+"ô·"
  1138. 11180 NEXT
  1139. 11190 KZ=6:GOSUB *WD
  1140. 11200 IF CC=1 THEN RETURN
  1141. 11210 NM=X+1
  1142. 11220 IF ERT=1 THEN ERT=0:RETURN
  1143. 11230 IF JU=0 THEN OPEN "I",#1,"NO"+MID$(STR$(NM),2)
  1144. 11240 IF JU=1 THEN OPEN "I",#1,"NN"+MID$(STR$(NM),2)
  1145. 11250 INPUT #1,E$:INPUT #1,DT$:INPUT #1,TM$:INPUT #1,CL$
  1146. 11260 INPUT #1,SC,HO,MI,DAY,SI,LV,KH,ALL1,EP2,EP3,EP4
  1147. 11270 FOR I=1 TO 6
  1148. 11280 INPUT #1,NM$(I)
  1149. 11290 NEXT
  1150. 11300 FOR I=1 TO 6
  1151. 11310  FOR J=0 TO 20
  1152. 11320 INPUT #1,M(I,J)
  1153. 11330  NEXT
  1154. 11340 NEXT
  1155. 11350 '
  1156. 11360 CLOSE:GOSUB *SCORE
  1157. 11370 IF PPP=1 THEN PPP=0:LINE(16+16*FX,145)-(16+16*FX+15,145+14),XOR,2,BF
  1158. 11380 IF JU=1 THEN RETURN
  1159. 11390 IF HO=1 AND MI=0 THEN TC=1:GOSUB *CONST:RETURN *SPMAIN ELSE TC=1:GOSUB *CONST:FOR F=1 TO 6:GOSUB *WRI:GOSUB *KAO:NEXT:GOSUB *MAN:RETURN *MMAIN
  1160. 11400 *SVVV
  1161. 11410 ZP=1:NM=5:GOSUB *SAV:RETURN
  1162. 11420 *DISK
  1163. 11430 EM=0:MS$="écéhéréjÅêù¥"
  1164. 11440 CM$(1)="éré`éuédü@écé`ésé`"
  1165. 11450 CM$(2)="æ▒é½é⌐éτ ékéné`éc"
  1166. 11470 KZ=2:GOSUB *WD
  1167. 11480 IF CC=1 THEN RETURN
  1168. 11490 PPP=1:ERT=0:CE=X+1:ON CE GOSUB *SAAVE,*LLOD
  1169. 11500 'IF CE=3 THEN GOSUB *PPP:RETURN *CEND
  1170. 11510 RETURN
  1171. 11520 CLOSE:KILL "NN"+MID$(STR$(NM),2):OPEN "O",#1,"NN"+MID$(STR$(NM),2):GOSUB *SSAAVV:RETURN
  1172. 11530 *LLOD
  1173. 11540 MS$="æ▒é½é⌐éτ":GOTO *LOD
  1174. 11550 *SAAVE
  1175. 11560 '
  1176. 11570 *SAV
  1177. 11580 GOSUB *ALLCLR:FOR EF=1 TO 6:M(EF,11)=0:NEXT
  1178. 11590 'IF ZP=1 THEN CLOSE:OPEN "O",#1,"NN"+MID$(STR$(NM),2):GOTO *SSAAVV
  1179. 11600 CLOSE: KILL "NO"+MID$(STR$(NM),2)
  1180. 11610 OPEN "O",#1,"NO"+MID$(STR$(NM),2)
  1181. 11620 DT$=DATE$:TM$=TIME$
  1182. 11630 TMM$=MID$(TM$,1,2)+"üF"+MID$(TM$,4,2)
  1183. 11640 *SSAAVV
  1184. 11650 PRINT #1,NE$:PRINT #1,DT$:PRINT #1,TMM$:PRINT #1,CL$
  1185. 11660 PRINT #1,SC,HO,MI,DAY,SI,LV,KH,ALL1,EP2,EP3,EP4
  1186. 11670 FOR I=1 TO 6
  1187. 11680 PRINT #1,NM$(I)
  1188. 11690 NEXT
  1189. 11700 FOR I=1 TO 6
  1190. 11710  FOR J=0 TO 20
  1191. 11720 PRINT #1,M(I,J)
  1192. 11730  NEXT
  1193. 11740 NEXT
  1194. 11750 CLOSE
  1195. 11760 RETURN
  1196. 11770 *SHINRO
  1197. 11780 EM=0:M=75:MK$=EA$(M):GOSUB *MK:CV=2:GOSUB *KODATA
  1198. 11790 FOR F=1 TO 6:CM$(F)=RM$(F):NEXT
  1199. 11800 GOSUB *CR
  1200. 11810 FOR F=1 TO 6
  1201. 11820 MS$=NM$(F)+"é═é╟é╠ìéìZé╔é╡é▄é╖é⌐üH"
  1202. 11830 KZ=5:M=0
  1203. 11840 GOSUB *WD
  1204. 11850 KJ=X+1
  1205. 11860 IF CC=1 THEN 11830
  1206. 11870 IF M(F,2)>100 AND KJ=1 THEN M=7
  1207. 11880 IF M(F,2)>90 AND M(F,2)<101 THEN IF KJ=5 THEN M=5 ELSE M=11:M(F,3)=M(F,3)-FNA(2*KJ)
  1208. 11890 IF M(F,2)>80 AND M(F,2)<91 THEN IF KJ=5 THEN M=3 ELSE IF KJ=4 THEN M=5 ELSE M=11:M(F,4)=M(F,4)-FNA(KJ*2)
  1209. 11900 IF M(F,2)>60 AND M(F,2)<81 THEN IF KJ=4 THEN M=3 ELSE IF KJ=3 THEN M=5 ELSE M=11:M(F,3)=M(F,3)-FNA(KJ*2)
  1210. 11910 IF M(F,2)>40 AND M(F,2)<61 THEN IF KJ=3 THEN M=3 ELSE IF KJ=2 THEN M=5 ELSE M=11:M(F,4)=M(F,4)-FNA(10)
  1211. 11920 IF M(F,2)>20 AND M(F,2)<41 THEN IF KJ=2 THEN M=3 ELSE IF KJ=1 THEN M=5 ELSE M=11:M(F,3)=M(F,3)-FNA(10)
  1212. 11930 IF M(F,2)<21 THEN IF KJ=1 THEN M=3 ELSE M=3:M(F,3)=M(F,3)-FNA(10)
  1213. 11940 IF M(F,4)>90 AND KJ<3 THEN M=11:M(F,4)=M(F,4)-FNA(40)
  1214. 11950 IF M(F,3)>90 AND KJ<3 THEN M=11:M(F,3)=M(F,3)-FNA(40)
  1215. 11960 IF M=11 THEN M(F,3)=M(F,3)-FNA(10):M(F,2)=M(F,2)-FNA(4):M(F,4)=M(F,4)-FNA(18)
  1216. 11970 IF KJ=5 AND M(F,4)>90 AND M(F,2)<100 THEN M=13:M(F,4)=M(F,4)+20+FNA(10)
  1217. 11980 IF KJ=4 AND M(F,4)>90 AND FNA(10)=1 THEN M=13:M(F,4)=M(F,4)+20+FNA(10)
  1218. 11990 IF KJ=4 AND M(F,4)>90 AND M(F,2)<60 THEN M=13:M(F,4)=M(F,4)+20+FNA(10)
  1219. 12000 IF KJ=3 AND M(F,4)>90 AND M(F,2)<20 THEN M=13:M(F,4)=M(F,4)+20+FNA(10)
  1220. 12010 IF M=0 THEN M=21
  1221. 12020 GOSUB *SS:M(F,14)=KJ
  1222. 12030 NEXT
  1223. 12040 LINE(243,167)-(316,235),PSET,0,BF
  1224. 12050 GOSUB *SHIN:RETURN
  1225. 12060 *SHIKEN
  1226. 12070 PL$="@4T170Q6L8"
  1227. 12080 PLAY PL$+"Q8O3G2A2A1",PL$+"Q8O4E2F+2D1"
  1228. 12090 PLAY PL$+"O3A4A4AAA4AAAA4AAR",PL$+"O4D4D4DDD4DDDD4DDR",PL$+"@36O2A4A4AAA4AAAA4AA@37A32A32A32A32"
  1229. 12100 PLAY PL$+"O3A4A4AAA4AAAA4AAR",PL$+"O4D4D4DDD4DDDD4DDR",PL$+"@36O2A4A4AAA4AAAA4AA@37A32A32A32A32A32"
  1230. 12110 PLAY PL$+"O3A1",PL$+"O4D1",PL$+"@37O2L16 R2. A64A4"
  1231. 12120 WAIT 200:MS$="éóéµéóéµÄÄî▒ô·é┼é╖":GOSUB *STM:WAIT 30:GOSUB *HITKEY
  1232. 12130 M=59:MK$=EA$(M):GOSUB *MK
  1233. 12140 MS$="üuéóéªüAîïë╩é¬é┼é─é⌐éτé┼é╖éµüBüv":GOSUB *STM
  1234. 12150 M=60:MK$=EA$(M):GOSUB *MK
  1235. 12160 MS$="üué═é═é═é═üEüEüEüEüBüv":GOSUB *STM
  1236. 12170 GOSUB *LNCL:M=61:MK$=EA$(M):GOSUB *MK
  1237. 12180 FOR EE=1 TO 6:K(EE)=0:NEXT
  1238. 12190 P$="T150O4L8"
  1239. 12200 PLAY OFF:PLAY P$,P$,P$,P$,P$,P$
  1240. 12210 PLAY"@17O5C+F+>F+<F+>F+4","@17C+2.","@4F+2."
  1241. 12220 PLAY"<F+>C+F+G+F+","F+2C+8","C+2F+8"
  1242. 12230 PLAY"C+F+G+F+2","F+4C+>F+2<","G+4BF+2"
  1243. 12240 PLAY"O5F+4C+4D2","O4G+4F+4F+2","@23O3C+F+C+G+AG+A4"
  1244. 12250 PLAY"E4C+2F+4","G4F+2AG+","C+EG+F+4.F+R"
  1245. 12260 PLAY"C+4E4C+4","G+4E4F+4","F+C+EEF+E"
  1246. 12270 PLAY"F+2C+4C+4","G+2G+4F+4","F+F+G+EG+4F+4"
  1247. 12280 PLAY" C+4 E&E16 C+2F+2","EC+G+&G+16F+2A2","C+C+EC+16<B>C+EC+F+2"
  1248. 12290 WAIT 250
  1249. 12300 F=INT(RND(1)*6)+1
  1250. 12310 IF K(1) AND K(2) AND K(3) AND K(4) AND K(5) AND K(6) THEN *ALEND
  1251. 12320 IF K(F)=1 THEN 12300
  1252. 12330 K(F)=1
  1253. 12340 MS$="üi"+NM$(F)+"é¬ïAé┴é─ùêé╜üj":GOSUB *STM
  1254. 12350 FLAG=1:GOSUB *WRI:GOSUB *KAO:AD=0:GOSUB *NOBI:GOSUB *WPR:GOSUB *HITKEY
  1255. 12360 MS$="é¿æOé═"+RM$(M(F,14))+"é╛é┴é╜é╚üI":GOSUB *STM
  1256. 12370 UK=0:O=M(F,14)
  1257. 12380 IF M(F,2)>50+O*20+EP2+ET(M(F,14)) AND M(F,3)>50+O*20+EP3+ET(M(F,14)) AND M(F,4)>50+O*20+EP4+ET(M(F,14)) AND FNA(O*80)<>3 THEN SC=SC+O*600:UK=1:M=70 ELSE M=71
  1258. 12390 IF M(F,4)>140 AND FNA(10)=2 AND UK=0 THEN SC=SC+O*600:UK=1:M=70
  1259. 12400 IF M(F,3)<110 AND FNA(5)=2 AND UK=1 THEN M=37
  1260. 12410 IF M(F,3)>160 AND FNA(8)=2 AND UK=0 THEN SC=SC+O*600:UK=1:M=70
  1261. 12420 IF M(F,4)>180 AND FNA(8)=2 AND UK=0 THEN SC=SC+O*600:UK=1:M=70
  1262. 12430 IF FNA(30)=2 AND UK=0 THEN SC=SC+O*500:UK=1:M=70
  1263. 12440 IF M(F,2)>O*20 AND M(F,3)>O*10 AND M(F,4)>O*20 AND FNA(O*10)=2 AND UK=0 THEN SC=SC+O*500:UK=1:M=70
  1264. 12450 IF UK=0 THEN IF M(F,3)>130 AND FNA(2)=1 THEN M=70:GOSUB *SS:M=72
  1265. 12460 IF UK=0 THEN IF M(F,3)<131 AND M=71 AND FNA(3)=1 THEN M=69:GOSUB *SS:M=72
  1266. 12470 IF UK=0 THEN IF M(F,3)<101 AND M=71 AND FNA(3)=1 THEN M=68:GOSUB *SS:M=72
  1267. 12480 IF UK=0 AND M=71 AND FNA(2)=1 THEN M=67:M(F,3)=M(F,3)-FNA(40)
  1268. 12490 IF UK=1 THEN IF M(F,3)<130 THEN M=68
  1269. 12500 IF UK=1 THEN IF M(F,3)<100 THEN M=69
  1270. 12510 IF UK=1 THEN IF M(F,3)<80 AND FNA(2)=1 THEN M=71:GOSUB *SS:M=72
  1271. 12520 IF UK=1 THEN M(F,15)=1
  1272. 12530 IF UK=0 AND FNA(3)<>1 THEN M(F,3)=M(F,3)-FNA(80):IF M(F,3)<0 THEN M(F,3)=FNA(20)
  1273. 12540 GOSUB *SS:IF UK=1 THEN KP=6:KP2=4:GOSUB *KOP:WAIT 14:KP=6:KP2=0:GOSUB *KOP ELSE KP=2:KP2=0:GOSUB *KOP:SC=SC-500
  1274. 12550 AD=1:GOSUB *WPR:GOSUB *SCORE
  1275. 12560 GOTO 12300
  1276. 12570 *ALEND
  1277. 12580 MS$="ÉMùèôxé≡ë┴ÄZé╡é▄é╖":GOSUB *STM
  1278. 12590 SC=SC+SI:WAIT 30:GOSUB *SCORE:WAIT 30
  1279. 12600 MS$="æSé─é╠îïë╩é¬é┼é▄é╡é╜üB":GOSUB *MSG
  1280. 12610 IF SC<1000 THEN M=64:LV=0
  1281. 12620 IF SC>999 AND SC<3000 THEN M=64:LV=1
  1282. 12630 IF SC>2999 AND SC<4000 THEN M=64:LV=2
  1283. 12640 IF SC>3999 AND SC<6000 THEN M=63:LV=3
  1284. 12650 IF SC>5999 AND SC<9000 THEN M=63:LV=4
  1285. 12660 IF SC>8999 AND SC<10000 THEN M=58:LV=5
  1286. 12670 IF SC>9999 AND SC<11000 THEN M=58:LV=6
  1287. 12680 IF SC>10999 AND SC<12000 THEN M=54:LV=7
  1288. 12690 IF SC>11999 AND SC<13000 THEN M=54:LV=8
  1289. 12700 IF SC>12999 AND SC<14000 THEN M=53:LV=9
  1290. 12710 IF SC>13999 AND SC<15000 THEN M=53:LV=10
  1291. 12720 IF SC>14999 AND SC<16000 THEN M=56:LV=11
  1292. 12730 IF SC>15999 AND SC<17000 THEN M=56:LV=12
  1293. 12740 IF SC>16999 AND SC<18000 THEN M=65:LV=13
  1294. 12750 IF SC>17999 AND SC<19000 THEN M=65:LV=14
  1295. 12760 IF SC>18999 AND SC<21000 THEN M=74:LV=15
  1296. 12770 IF SC>21999 THEN M=66:LV=16
  1297. 12780 MK$=EA$(M):GOSUB *MK
  1298. 12790 WAIT 30
  1299. 12800 MS$="é═éóüB":GOSUB *STM
  1300. 12810 GOSUB *BGM1:WAIT 200
  1301. 12820 MS$="âQü[âÇé═é▒é▒é┼ÅIù╣é┼é╖üB":GOSUB *STM
  1302. 12830 MS$="ïMò√é╠ï│Äté╠âZâôâXé═üEüEüEüB":GOSUB *MSG
  1303. 12840 WAIT 100
  1304. 12850 IF LV=0 THEN M$="é▄é╕ï│Äté╔é═é▐é½é▄é╣é±üB":M2$="ɽèié≡ì¬û{é⌐éτé⌐éªéΘé╫é½é┼é╖üB":M3$="é▒é╠âQü[âÇé≡önÄ¡é╔é╡é─é▄é╖üB":M4$="âvâìâOâëâ}ü[é╠ïΩÿJé≡éφé⌐é┴é─é▄é╣é±üB":M5$="éαéñêΩôxéΓéΦé▄é╡éσéñ"
  1305. 12860 IF LV=1 THEN M$="ìéû]é▌é═éΓé▀é▄é╡éσéñ":M2$="é═é┴é½éΦî╛éñé╞æfÄ┐é═é╚éóüB":M3$="üuï│éªéΘüvé╞éóéñÄûé¬":M4$="éáé╚é╜é═é▄é╛éφé⌐é┴é─é▄é╣é±üB":M5$="îoî▒é¬æσÉ╪é┼é╖üB"
  1306. 12870 IF LV=2 THEN M$="é▄é╛ìéû]é▌é╡é─éóé▄é╖":M2$="É╢ôké╠é▒é╞é≡éµé¡ÆméΦé▄é╡éσéñ":M3$="éαéñêΩôx":M4$="ƺÉφé╡é─é▌é▄é╡éσéñ":M5$="îoî▒é¬æσÉ╪é┼é╖üB"
  1307. 12880 IF LV=3 THEN M$="é▄é╛é▄é╛é┼é╖":M2$="éáé╣éτé╕":M3$="é╢é┴é¡éΦé╞":M4$="éµé¡ìléª":M5$="éαéñêΩôxéΓéΦé▄é╡éσéñüB"
  1308. 12890 IF LV=4 THEN M$="é▄éáé▄éáé┼é╖":M2$="é┼éαæfÄ┐é═é╚éóüB":M3$="üuï│éφéΘüvé╞éóéñÄûéα":M4$="ìléªé▄é╡éσéñüB":M5$="îoî▒é¬æσÉ╪é┼é╖üB"
  1309. 12900 IF LV=5 THEN M$="æfÄ┐é═éáéΦé▄é╖üB":M3$="üuï│Ätüvé╞éóéñéαé╠é¬":M4$="éáé╚é╜é═éφé⌐é┴é─éóéΘéµéñé┼é╖üB":M5$="éáé╚é╜é╚éτæσÅΣòvüB"
  1310. 12910 IF LV=6 THEN M$="âîâxâïéU":M2$="üuï│Ätüvé╞éóéñéαé╠é¬":M3$="éáé╚é╜é═éφé⌐é┴é─éóéΘéµéñé┼é╖üB":M4$="éáé╚é╜é╚éτÅΣòvüB":M5$="ÅτÆké┼é╖"
  1311. 12920 IF LV=7 THEN M$="âëâôâNéV":M2$="üuï│êτüvé╞éóéñéαé╠é¬":M3$="éáé╚é╜é═éφé⌐é┴é─éóéΘéµéñé┼é╖üB":M4$="éáé╚é╜é╚éτò╜ïCüB":M5$="èÑÆúé┴é─é╦"
  1312. 12930 IF LV=8 THEN M$="âëâxâïéW":M2$="üuÅmüvé╞éóéñéαé╠é¬":M3$="éáé╚é╜é═éφé⌐é┴é─éóéΘéµéñé┼é╖üB":M4$="éáé╚é╜é╚éτê└ÉSüB":M5$="é╙é╙é╙üEüEüE"
  1313. 12940 IF LV=9 THEN M$="âîâxâïéX":M2$="é▒é╠âQü[âÇé¬":M3$="éáé╚é╜é═éφé⌐é┴é─éóéΘéµéñé┼é╖üB":M4$="éáé╚é╜é╚éτé┼é½éΘüB":M5$="èµÆúéΦé▄é╡éσéñ"
  1314. 12950 IF LV=10 THEN M$="ï│Äté╔é╚éΩéΘé╞éóéóé┼é╖é╦üB":M2$="ì╦ö\é═éáéΦé▄é╖üB":M3$="éáé╞éTë±éΓéΩé╬âvâìé┼é╖éµüB":M4$="éαéñé┐éσé┴é╞é┼é╖üB":M5$="ì─ôxâ`âââîâôâWé╖éΘé╠é╛üI"
  1315. 12960 IF LV=11 THEN M$="ï│Äté╔é╚éΩéΘé⌐é╚üB":M2$="â`âââôâXé═éáéΦé▄é╖üB":M3$="éáé╞éSë±éΓéΩé╬âvâìé┼é╖éµüB":M4$="éαéñÅ¡é╡é┼é╖üB":M5$="éαéñêΩë±éΓé┴é─üI"
  1316. 12970 IF LV=12 THEN M$="ï│Äté╔é╚éΩéΘé⌐éαüB":M2$="ë┬ö\ɽé═éáéΦé▄é╖üB":M3$="éáé╞éRë±éΓéΩé╬âvâìé┼é╖éµüB":M4$="éαéñé┐é┴é╞é┼é╖üB":M5$="èµÆúéΩüI"
  1317. 12980 IF LV=13 THEN M$="ï│Äté╔é╚éΩé╗éñé┼é╖üB":M2$="û{ôûé┼é╖üB":M3$="éáé╞éQë±éΓéΩé╬âvâìé┼é╖éµüB":M4$="éαéñé┐éσé┴é╞é┼é╖üB":M5$="û{ôûé⌐é╚éáüH"
  1318. 12990 IF LV=14 THEN M$="ï│Äté╔é╚éΩé▄é╖üB":M2$="ì╦ö\é═éáéΦé▄é╖üB":M3$="éáé╞éPë±éΓéΩé╬âvâìé┼é╖éµüB":M4$="éαéñé┘é±é╠é┐éσé┴é╞é┼é╖üB":M5$="èµÆúéδéñüI"
  1319. 13000 IF LV=15 THEN M$="éαéñÅ[ò¬é╔ï│Äté┼é╖üB":M2$="æfÄ┐é═ɪé¡éáéΦé▄é╖üB":M3$="éáé╚é╜é═âvâìé╔é╚éΩé▄é╖üB":M4$="èµÆúé┴é─é¡é╛é│éóüB":M5$="Åπê╩âëâôâNé┼é╖üB"
  1320. 13010 WAIT 10
  1321. 13020 MS$=M$:GOSUB *STM:WAIT 30
  1322. 13030 MS$=M2$:GOSUB *MSG:WAIT 30
  1323. 13040 MS$=M3$:GOSUB *MSG:WAIT 30
  1324. 13050 MS$=M4$:GOSUB *MSG:WAIT 30
  1325. 13060 MS$=M5$:GOSUB *MSG:WAIT 30
  1326. 13070 WAIT 30:GOSUB *HITKEY:RP=1:GOSUB *STM
  1327. 13080 LOCATE 28,18:PRINT USING"@";CL$
  1328. 13090 LOCATE 28,19:PRINT USING"æììçâXâRâA ##,### âîâxâï ##";SC;LV
  1329. 13100 LOCATE 28,20:PRINT "âfü[â^ü[é≡é╠é▒é╡é▄é╖üB"
  1330. 13110 LOCATE 28,21:INPUT"û╝æOé≡ôⁿù═é╡é─é¡é╛éóüB";INS$
  1331. 13120 I=0:IF LEN(INS$)>6 THEN INS$=MID$(INS$,1,6)
  1332. 13130 OPEN "I",#1,"DATA"
  1333. 13140 INPUT #1,CL$(I)
  1334. 13150 IF CL$(I)="*" THEN 13200
  1335. 13160 INPUT #1,SC(I),LV(I)
  1336. 13170 INPUT #1,DT$(I):INPUT #1,TM$(I):INPUT #1,INS$(I)
  1337. 13180 I=I+1
  1338. 13190 GOTO 13140
  1339. 13200 CLOSE
  1340. 13210 IF I=400 THEN MS$="éáéΦé¬é╞éñé▓é┤éóé▄é╖üB":GOSUB *STM:MS$="é╚é±é╞ïMò√é¬éSéOéOë±û┌é╠âvâîâCâäü[é┼é╖üB":GOSUB *MSG:MS$="É╜é╔É\é╡û≤éáéΦé▄é╣é±é¬üAâüâéâèé╠ôsìçÅπüA":GOSUB *MSG:MS$="é▒éΩê╚ÅπâZü[âué═é┼é½é▄é╣é±üB":GOSUB *MSG:GOSUB *HITKEY:GOTO 13340
  1341. 13220 ED=I
  1342. 13230 *SVDAT
  1343. 13240 SC(ED)=SC:LV(ED)=LV:CL$(ED)=CL$:DT$(ED)=DATE$:TM$=TIME$:INS$(ED)=INS$
  1344. 13250 TM$(ED)=MID$(TM$,1,2)+"üF"+MID$(TM$,4,2)+"üF"+MID$(TM$,7,2)
  1345. 13260 CLOSE:KILL "DATA":OPEN "O",#1,"DATA"
  1346. 13270 FOR I=0 TO ED
  1347. 13280 PRINT #1,CL$(I)
  1348. 13290 PRINT #1,SC(I),LV(I)
  1349. 13300 PRINT #1,DT$(I):PRINT #1,TM$(I):PRINT #1,INS$(I)
  1350. 13310 NEXT
  1351. 13320 PRINT #1,"*"
  1352. 13330 CLOSE
  1353. 13340 MS$="é¿éΓüAÉ╢ôké⌐éτêΩî╛éáéΘéµéñé┼é╖üB":GOSUB *STM
  1354. 13350 FOR F=1 TO 6
  1355. 13360 IF M(F,15)=1 THEN UK=1 ELSE UK=0:M(F,3)=M(F,3)-30
  1356. 13370 GOSUB *MABA
  1357. 13380 WAIT 30
  1358. 13390 IF M(F,3)>70 THEN M=44 ELSE M=45
  1359. 13400 GOSUB *CR:IF FNA(2)=1 THEN GOSUB *SS
  1360. 13410 IF UK=1 AND M(F,3)>160 AND FNA(2)=1 THEN M=77:N4$(F)=EA$(M):GOSUB *SS:GOSUB *CR:M=76:GOSUB *SS:GOSUB *CR:M=43:GOSUB *SS:GOTO 13580
  1361. 13420 IF UK=1 AND M(F,3)>160 THEN M=78:N4$(F)=EA$(M):GOSUB *SS:GOSUB *CR:M=76:GOSUB *SS:M=42:GOSUB *SS:GOTO 13580
  1362. 13430 IF UK=1 AND M(F,3)<161 AND M(F,3)>150 THEN M=9:GOSUB *SS:M=43:GOSUB *CR:N4$(F)=EA$(M):GOSUB *SS:GOTO 13580
  1363. 13440 IF UK=1 AND M(F,3)<151 AND M(F,3)>120 THEN M=43:GOSUB *SS:M=42:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS:GOTO 13580
  1364. 13450 IF UK=1 AND M(F,3)<121 AND M(F,3)>90 THEN M=43:N4$(F)=EA$(M):GOSUB *SS:GOTO 13580
  1365. 13460 IF UK=1 AND M(F,3)<91 AND M(F,3)>70 THEN M=18:GOSUB *SS:M=42:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1366. 13470 IF UK=1 AND M(F,3)<71 THEN M=41:N4$(F)=EA$(M):GOSUB *SS
  1367. 13480 IF UK=0 AND M(F,3)>140 THEN M=71:GOSUB *SS:M=71:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1368. 13490 IF UK=0 AND M(F,3)<141 AND M(F,3)>130 THEN M=27:GOSUB *SS:M=71:GOSUB *SS:M=28:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1369. 13500 IF UK=0 AND M(F,3)<131 AND M(F,3)>120 THEN M=67:GOSUB *SS:GOSUB *CR:M=27:GOSUB *SS:GOSUB *CR:M=28:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1370. 13510 IF UK=0 AND M(F,3)<121 AND M(F,3)>105 THEN M=71:GOSUB *SS:M=28:N4$(F)=EA$(28):GOSUB *CR:GOSUB *SS
  1371. 13520 IF UK=0 AND M(F,3)<106 AND M(F,3)>90 THEN M=23:GOSUB *SS:M=38:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1372. 13530 IF UK=0 AND M(F,3)<91 AND M(F,3)>80 THEN M=30:GOSUB *SS:M=35:N4$(F)=EA$(28):GOSUB *CR:GOSUB *SS:M=28:GOSUB *SS
  1373. 13540 IF UK=0 AND M(F,3)<81 AND M(F,3)>70 THEN M=49:GOSUB *SS:M=39:N4$(F)=EA$(M):GOSUB *CR:GOSUB *SS
  1374. 13550 IF UK=0 AND M(F,3)<71 AND M(F,3)>60 THEN M=11:GOSUB *SS:M=27:GOSUB *CR:N4$(F)=EA$(M):GOSUB *SS
  1375. 13560 IF UK=0 AND M(F,3)<61 AND M(F,3)>30 THEN M=79:N4$(F)=EA$(M):GOSUB *SS
  1376. 13570 IF UK=0 AND M(F,3)<31 THEN M=39:GOSUB *SS:M=80:GOSUB *CR:N4$(F)=EA$(M):GOSUB *SS
  1377. 13580 WER=1:GOSUB *CR:GOSUB *MODO
  1378. 13590 '
  1379. 13600 GET@A(23+(F-1)*48,14+UY)-(23+(F-1)*48+31,14+31+UY),R1%,(F-1)*1056
  1380. 13610 '
  1381. 13620 '
  1382. 13630 '
  1383. 13640 GOSUB *DWRI
  1384. 13650 NEXT:FLAG=0:GOSUB *BGM2
  1385. 13660 LOAD@"OTSU.TIF",(32,20):GOSUB *HITKEY
  1386. 13670 GOTO *FINAL
  1387. 13680 *BGM3
  1388. 13690 PLAY OFF:ON MOUSE(2) GOSUB *POFF:MOUSE(2) ON 
  1389. 13700 P$="T170L8O4Q8"
  1390. 13710 PLAY P$,P$,P$,P$,P$,P$
  1391. 13720 PLAY "@23","","","O3L4@55","O3L4@55","O3L4@55"
  1392. 13730 D$="O2@37A4AAA4AA"
  1393. 13740 D2$="@37A4AAAAAA":D3$=D$+D2$
  1394. 13750 B$="@23O2CCCCCCCC"
  1395. 13760 B2$="EEEEEEEE":B3$=B$+B2$
  1396. 13770 B4$="CCCCFFFFAAAAEECC"
  1397. 13780 PLAY "o3@29C1E1",B3$,D3$,"C1&C1","E1&E1","A1&A1"
  1398. 13790 PLAY "F1A1&",B3$,D3$," C1&C1"," E1&E1","<A1&A1"
  1399. 13800 PLAY "A1B1",B4$,D3$," C1&C1","<F1&F1"," A1&A1"
  1400. 13810 PLAY ">C1.{C<B+BA+AG+GF+FE+ED+DC+C>DD+EE+FF+GG+}2@23",B3$,D3$,"<A2a2d2d2"," c2C2B2B2"," E2E2G2G2"
  1401. 13820 PLAY "CGEFC4E2GAGFG4",B3$,D3$,">C1&C1",">E1&E1",">G1&G1"
  1402. 13830 PLAY "GA4.GEBA4.Q6AB>C<Q8BA4",B3$,D3$," C1&C1"," E1&E1","<A1&A1"
  1403. 13840 PLAY "R2AEGEG4.BA2",B4$,D3$," C1&C1","<F1&F1"," A1&A1"
  1404. 13850 PLAY "AB>C2E<A>DC2.C",B3$,D3$,"<D1&D1"," B1&B1"," G1&G1"
  1405. 13860 PLAY "C4.E4.F4.GFGF2",B3$,D3$,">C1&C1",">E1&E1",">G1&G1"
  1406. 13870 PLAY "F GAGAGEFG2 R2",B3$,D3$," C1&C1"," E1&E1","<A1&A1"
  1407. 13880 PLAY "F4E4D2GE2 CEG",B4$,D3$," C1&C1","<F1&F1"," A1&A1"
  1408. 13890 PLAY "AG2FDAG1",B3$,D3$,"<D1&D1"," B1&B1"," G1&G1"
  1409. 13900 PLAY "G1&{GG-FF-EE-DD-CC-<BB-AA-GG-FF-EE-DD-DE-EF-FG-GA-AB-B>C-CD-DE-EF-FG-G}1",B3$,D3$," C1&C1"," E1&E1"," G1&G1"
  1410. 13910 PLAY "C4.E4.F4.G4.F2",B3$,D3$," C1&C1"," E1&E1","<A1&A1"
  1411. 13920 PLAY "C4.E4.F4.G4.A2",B4$,D3$," C1&C1","<F1&F1"," A1&A1"
  1412. 13930 PLAY ">C1&C1","e1C1",D3$," C1&C1"," F1&F1","<A1&A1"
  1413. 13940 GOTO 3250
  1414. 13950 *POFF
  1415. 13960 PLAY OFF:MOUSE(2) OFF:RETURN 3250
  1416. 13970 *KINKON
  1417. 13980 PLAY"T120@44O5L2Q7FAGC1.CGAF","Q5T120@44O4L2FAGC1.CGAF":RETURN
  1418. 14010 PLAY"T70L64Q2O2@39CR4","T70L64Q1O3@39CR4","T70L64Q1O8@67R64CR4"
  1419. 14020 RETURN
  1420. 14030 *NO
  1421. 14040 PLAY"T140L2O1@4C2C+4","@4o2t140c2c+4","o3@4t140e2f4"
  1422. 14050 RETURN
  1423. 14060 *YES
  1424. 14070 PLAY"T140O4@29c8c16c16c2","@29o5t140c8c16c16c2","o4@30t140e8e16e16e2"
  1425. 14080 RETURN
  1426. 14090 *BGM1
  1427. 14100 PLAY OFF
  1428. 14110 P$="T180L8O4Q8"
  1429. 14120 PLAY P$+"@24",P$+"O3@23",P$+"O4@26",P$,P$,P$
  1430. 14130 P$="C+4F+4.G+16A+16>C+<G+F+4C+4F+16C+16<B16>C+4"
  1431. 14140 PLAY P$,"R64"+P$,"R32."+P$
  1432. 14150 P$="C+F+C+A4F+4C+EF+16G16F+16G16F+16G16F+4."
  1433. 14160 PLAY P$,"R64"+P$,"R32"+P$
  1434. 14170 P$="C+4F+4>C+4<B8A8G+8F+8"
  1435. 14180 PLAY P$,"R64"+P$,"R32"+P$
  1436. 14190 P$="E4F32F+2"
  1437. 14200 PLAY P$,"R64"+P$,"R32"+P$
  1438. 14210 RETURN
  1439. 14220 *BGM2
  1440. 14230 PLAY OFF:PL$="Q8O3L8T170":PLAY PL$,PL$,PL$
  1441. 14240 PLAY "@44O4<B4>G4<B4>A4","l4@23O2G2A2","O4@17G1"
  1442. 14250 PLAY "BBABF+4<B4","B2F+2","V10D1"
  1443. 14260 PLAY "B4>G4<B4>A4","G2A2","G1"
  1444. 14270 PLAY "A>DCDC+4F+4<","D2C+2","D1"
  1445. 14280 PLAY "<B2>BAB4","BBBB","F+1&"
  1446. 14290 PLAY "F+4C+4A2","F+F+C+C+","F+1"
  1447. 14300 PLAY "B2BAB4","BBBB","D1"
  1448. 14310 PLAY "<A4>D4F+C+<A4","F+F+C+C+","C+1"
  1449. 14320 PLAY "F+4>C+4<B4AB","F+F+BB","D1"
  1450. 14330 PLAY "F+2>C+2","C+4C+4>C+4C+4<","C+1"
  1451. 14340 PLAY "F+4C+4F+4>C+4","F+F+C+C+","F+2C+2"
  1452. 14350 PLAY "<E4DEC+4F+2","EEC+C+","G1"
  1453. 14360 PLAY "C+4E4.F+4C+","C+F+2C+","C+1"
  1454. 14370 PLAY "F+2.<B>C+","F+2C+2","F+2C+4F+4"
  1455. 14380 PLAY "EF+4C+F+2","F+1","F+1"
  1456. 14390 PLAY "F+2C+2","F+2C+2","C+1"
  1457. 14400 PLAY "D4A4F+4A4","D4A4F+4A4","D4A4F+4A4"
  1458. 14410 PLAY "B4B4B4B4","D4D4D4D4","F+4F+4F+4F+4"
  1459. 14420 RETURN
  1460. 14430 *MMU
  1461. 14440 MU2=0:PUT@A(24+XC*32,YC*32+17)-(24+XC*32+15,YC*32+17+2),MU%,PSET,,,,M(GG,7)*8*8*6+MU2*8*8
  1462. 14450 RETURN
  1463. 14460 *BLOCK
  1464. 14470 IF XC=7 THEN GG=YC+1 ELSE GG=4+YC
  1465. 14480 CG=GG
  1466. 14490 FOR WW=1 TO 6
  1467. 14500 IF CG=WW THEN COLOR 2 ELSE COLOR 4
  1468. 14510 LOCATE 61-(WW>3)*7,WW*3+(WW>3)*9-(WW=3 OR WW=6):PRINT USING "#";WW
  1469. 14520 IF RTY=1 THEN LOCATE 61-(WW>3)*7,WW*3+(WW>3)*9-(WW=3 OR WW=6):PRINT " "
  1470. 14530 NEXT:RTY=0
  1471. 14540 RETURN
  1472. 14550 *BLL
  1473. 14560 XC=(GG<4)+8:YC=GG+(GG>3)*3-1
  1474. 14570 RETURN
  1475. 14580 *CONST
  1476. 14590 MOUSE 1,0,0,0:ETC=0
  1477. 14600 LOAD@"KAO.TIF",(16,5)
  1478. 14610 GOSUB *MAN
  1479. 14620 *CONST2
  1480. 14630 MOUSE 1,160,100,1:GOSUB *BLOCK
  1481. 14640 IF TC=0 THEN GG=1 ELSE IF TC=1 THEN GOSUB *PPUT:GOSUB *RREAD:RETURN
  1482. 14650 'IF TC=3 THEN GG=1 ELSE IF TC=1 THEN GOSUB *PPUT:GOSUB *RREAD:RETURN
  1483. 14660 'IF JU=1 AND TC<>1 THEN GOSUB *PPUT:GOSUB *RREAD:RETURN
  1484. 14670 IF TC=2 THEN GOSUB *PPUT
  1485. 14680 IF TC=0 THEN MS$="èτé≡éUÉlæIé±é┼ë║é│éó":GOSUB *STM
  1486. 14690 MOUSE 4,16,5,300,100
  1487. 14700 IF MOUSE (2,0) THEN MX=MOUSE(0):MY=MOUSE(1):GOTO 14730
  1488. 14710 IF MOUSE (2,1) THEN MX=MOUSE(0):MY=MOUSE(1):ETC=1:GOTO 14730 
  1489. 14720 GOTO 14700
  1490. 14730 'MX=MX-16:MY=MY-16
  1491. 14740 FOR XX=0 TO 8
  1492. 14750 FOR YY=0 TO 3
  1493. 14760 IF MX=>XX*32+16 AND MX<XX*32+31+16 AND MY=>YY*32+5 AND MY<YY*32+31+5 THEN XC=XX:YC=YY:IF MY<YY*32+16 THEN LP=0 ELSE LP=1
  1494. 14770 NEXT:NEXT
  1495. 14780 IF XC=7 OR XC=8 THEN GOSUB *BLOCK:IF ETC=1 THEN IF M(GG,7)=0 THEN M(GG,7)=1:GOSUB *MMU:ETC=0:GOTO 14700 ELSE M(GG,7)=0:ETC=0:GOSUB *MMU:GOTO 14700
  1496. 14790 IF XC=7 OR XC=8 THEN GOSUB *BLOCK:GOTO 14700 
  1497. 14800 IF XC=6 AND YC=2 THEN GOSUB *RREAD:GOTO *RRND
  1498. 14810 GET@A(16+XC*32,5+YC*32+LP*16)-(16+XC*32+31,5+YC*32+LP*16+15),PE%
  1499. 14820 M(GG,LP*8)=XC:M(GG,LP*8+1)=YC:GOSUB *BLL
  1500. 14830 PUT@A(16+XC*32,5+YC*32+LP*16)-(16+XC*32+31,5+YC*32+LP*16+15),PE%
  1501. 14840 GOSUB *MMU
  1502. 14850 GOTO 14690
  1503. 14860 *RREAD
  1504. 14870 FOR GG=1 TO 6:GOSUB *BLL
  1505. 14880 GET@A(16+XC*32,5+YC*32)-(16+XC*32+31,5+YC*32+31),R1%,(GG-1)*1056
  1506. 14890 NEXT
  1507. 14900 LINE(10,5)-(309,99),PSET,[44,0,0],BF:RETURN
  1508. 14910 *PPUT
  1509. 14920 FOR GG=1 TO 6
  1510. 14930 FOR LP=0 TO 1
  1511. 14940 XC=M(GG,LP*8):YC=M(GG,LP*8+1)
  1512. 14950 GET@A(16+XC*32,5+YC*32+LP*16)-(16+XC*32+31,5+YC*32+LP*16+15),PE%
  1513. 14960 GOSUB *BLL
  1514. 14970 PUT@A(16+XC*32,5+YC*32+LP*16)-(16+XC*32+31,5+YC*32+LP*16+15),PE%
  1515. 14980 IF M(GG,7)=1 THEN GOSUB *MMU:M(GG,7)=1
  1516. 14990 NEXT:NEXT
  1517. 15000 RTY=1:GOSUB *BLOCK:GG=1
  1518. 15010 RETURN
  1519. 15020 *RRND
  1520. 15030 FOR F=1 TO 6
  1521. 15040 IF M(F,2)=0 THEN M(F,2)=FNA(60):M(F,3)=FNA(60):M(F,4)=FNA(60):NM$(F)="üH":M(F,10)=FNA(9):M(F,16)=0
  1522. 15050 NEXT
  1523. 15060 LINE(16,5)-(8*32+31+16,4+3*32),PSET,[44,0,0],BF
  1524. 15070 FOR F=1 TO 6
  1525. 15080 GOSUB *WRI:GOSUB *KAO
  1526. 15090 NEXT
  1527. 15100 GOSUB *MAN:RTY=1:GOSUB *BLOCK
  1528. 15110 *SCT
  1529. 15120 COLOR 7:GOSUB *ALLCLR
  1530. 15130 MS$=""
  1531. 15140 CM$(1)="û╝æOüAÉ║üAò╧ìX"
  1532. 15150 CM$(2)="ÉöÆlò╧ìX"
  1533. 15160 CM$(3)="èτò╧ìX"
  1534. 15170 CM$(4)="ò╚ò╧ìX"
  1535. 15180 CM$(5)="âZü[âu"
  1536. 15190 CM$(6)="ÅIù╣"
  1537. 15200 KZ=6:GOSUB *WD
  1538. 15210 IF CC=1 THEN 15200
  1539. 15220 POW=0:MS$=CM$(X+1)
  1540. 15230 ON X+1 GOSUB *CNK,*CKAZ,*CKAO,*CKUSE,*CSAVE,*CEND
  1541. 15240 GOTO *SCT
  1542. 15250 *CNK
  1543. 15260 CM$(1)="û╝æOò╧ìX"
  1544. 15270 CM$(2)="É║ò╧ìX"
  1545. 15280 KZ=2:GOSUB *WD:IF CC=1 THEN RETURN
  1546. 15290 ON X+1 GOTO *CNAME,*CKOE
  1547. 15300 *CNAME
  1548. 15310 GOSUB *ALLCLR
  1549. 15320 GOSUB *STM
  1550. 15330 GOSUB *SASU
  1551. 15340 IF CC=1 THEN *CNK
  1552. 15350 F=X+1
  1553. 15360 LOCATE 28,20:PRINT "éTò╢ÄÜûÿüiæSèpé┼üj"
  1554. 15370 LOCATE 28,21:LINE INPUT "émé`élédüü";NM$(F)
  1555. 15380 IF LEN(NM$(F))>10 OR (LEN(NM$(F)) MOD 2)=1 THEN 15360
  1556. 15390 EF=F:GOSUB *DAPR:GOSUB *ALLCLR:GOTO *CNAME
  1557. 15400 *CKOE
  1558. 15410 GOSUB *ALLCLR
  1559. 15420 MS$="É║ò╧ìX"
  1560. 15430 GOSUB *STM
  1561. 15440 GOSUB *SASU:IF CC=1 THEN GOSUB *ALLCLR:GOTO *CNK
  1562. 15450 F=X+1
  1563. 15460 IF M(F,10)=0 THEN M(F,10)=FNA(9)
  1564. 15470 *CKOE2
  1565. 15480 W=27:M=23:GOSUB *CR:GOSUB *SS:GOSUB *CR
  1566. 15490 MS$="é╟éñé╡é▄é╖é⌐üH"
  1567. 15500 CM$(1)="ìéé¡é╖éΘ"
  1568. 15510 CM$(2)="Æßé¡é╖éΘ"
  1569. 15520 CM$(3)="îêÆΦ"
  1570. 15530 KZ=3:GOSUB *WD:IF CC=1 THEN *CKOE
  1571. 15540 IF X=0 THEN M(F,10)=M(F,10)+1:IF M(F,10)=10 THEN M(F,10)=1
  1572. 15550 IF X=1 THEN M(F,10)=M(F,10)-1:IF M(F,10)=0 THEN M(F,10)=9
  1573. 15560 IF X=2 THEN *CKOE
  1574. 15570 GOTO *CKOE2
  1575. 15580 *CKAZ
  1576. 15590 GOSUB *ALLCLR
  1577. 15600 MS$="ÉöÆlò╧ìX"
  1578. 15610 GOSUB *STM
  1579. 15620 GOSUB *SASU
  1580. 15630 IF CC=1 THEN RETURN
  1581. 15640 F=X+1
  1582. 15650 *CKAZ2
  1583. 15660 MS$=""
  1584. 15670 CM$(1)="ê╙ù~"+STR$(M(F,4))
  1585. 15680 CM$(2)="Æmö\"+STR$(M(F,2))
  1586. 15690 CM$(3)="æ╘ôx"+STR$(M(F,3))
  1587. 15700 KZ=3
  1588. 15710 GOSUB *WD:IF CC=1 THEN *CKAZ
  1589. 15720 MS$=CM$(X+1):IF X=0 THEN TP=4 ELSE IF X=1 THEN TP=2 ELSE TP=3
  1590. 15730 CM$(1)="ì┼ù╟"
  1591. 15740 CM$(2)="ù╟éó"
  1592. 15750 CM$(3)="òüÆ╩"
  1593. 15760 CM$(4)="ê½éó"
  1594. 15770 CM$(5)="ï╔ê½"
  1595. 15780 KZ=5:GOSUB *WD:IF CC=1 THEN *CKAZ2
  1596. 15790 M(F,TP)=80-X*20+FNA(3):IF X=0 THEN M(F,TP)=M(F,TP)+FNA(20)
  1597. 15800 EF=F:GOSUB *DAPR:GOSUB *ALLCLR
  1598. 15810 GOTO *CKAZ2
  1599. 15820 *CKAO
  1600. 15830 GOSUB *STM
  1601. 15840 GG=1:GOSUB *ALLCLR:TC=2:GOSUB *CONST
  1602. 15850 RETURN
  1603. 15860 *CSAVE
  1604. 15870 MS$="ë╜ô·è╘é┼é╖é⌐"
  1605. 15880 GOSUB *STM
  1606. 15890 CM$(1)="éUô·"
  1607. 15900 CM$(2)="éVô·"
  1608. 15910 CM$(3)="éWô·"
  1609. 15920 CM$(4)="éXô·"
  1610. 15930 CM$(5)="éPéOô·"
  1611. 15940 CM$(6)="éPéPô·"
  1612. 15950 KZ=6:GOSUB *WD
  1613. 15960 DAY=X+6
  1614. 15970 IF CC=1 THEN RETURN
  1615. 15980 MS$="âNâëâXû╝é═üH":GOSUB *STM
  1616. 15990 LOCATE 28,20:PRINT "éSò╢ÄÜûÿüiæSèpé┼üj"
  1617. 16000 LOCATE 28,21:LINE INPUT "émé`élédüü";CL$
  1618. 16010 IF LEN(CL$)>8 OR (LEN(CL$) MOD 2)=1 THEN 15980
  1619. 16020 MS$=CL$+"âNâëâXé┼éóéóé┼é╖é⌐"
  1620. 16030 GOSUB *OK
  1621. 16040 IF CC=1 THEN 15980
  1622. 16050 CL$=CL$+"âNâëâX"
  1623. 16060 UO=1:ERT=1:POP=1:MS$="éré`éuédü@éeéhékéd":GOSUB *LOD
  1624. 16070 IF CC=1 THEN RETURN 
  1625. 16080 NM=X+1
  1626. 16090 NE$="üH":SC=0:HO=1:MI=0:SI=50:LV=1:KH=80:ALL1=0
  1627. 16100 CLOSE:KILL "NN"+MID$(STR$(NM),2):OPEN "O",#1,"NN"+MID$(STR$(NM),2):GOSUB *SSAAVV
  1628. 16110 UO=0:GOSUB *SAV:GOTO *CEND
  1629. 16120 *CEND
  1630. 16130 '
  1631. 16140 MS$="ÅIù╣é╡é─éóéóé┼é╖é⌐üH"
  1632. 16150 GOSUB *OK
  1633. 16160 IF CC=1 THEN RETURN ELSE RETURN *JYU
  1634. 16170 *CKUSE
  1635. 16180 MS$="ò╚é≡îêé▀éΘ"
  1636. 16190 GOSUB *STM
  1637. 16200 CM$(1)="òüÆ╩"
  1638. 16210 CM$(2)="ònûRùhé╖éΦ"
  1639. 16220 CM$(3)="éµé¡îçÉLé≡é╖éΘ"
  1640. 16230 CM$(4)="û│î√"
  1641. 16240 CM$(5)="é╙é┤é»éΘ"
  1642. 16250 GOSUB *SASU
  1643. 16260 IF CC=1 THEN RETURN
  1644. 16270 F=X+1
  1645. 16280 MS$=NM$(F)+"üü"+CM$(M(F,5))
  1646. 16290 KZ=5:GOSUB *WD
  1647. 16300 IF CC=1 THEN *CKUSE
  1648. 16310 M(F,5)=X+1:GOSUB *ALLCLR:GOTO *CKUSE
  1649. 16320 *GCL
  1650. 16330 LINE(10,5)-(309,99),PSET,[44,0,0],BF
  1651. 16340 FOR A=1 TO 13:LOCATE 0,A:PRINT SPC(79):NEXT
  1652. 16350 RETURN
  1653. 16360 *MIRU
  1654. 16370 RP=1:GOSUB *STM:GOSUB *GCL
  1655. 16380 I=0:OPEN "I",#1,"DATA"
  1656. 16390 INPUT #1,CL$(I)
  1657. 16400 IF CL$(I)="*" THEN 16450
  1658. 16410 INPUT #1,SC(I),LV(I)
  1659. 16420 INPUT #1,DT$(I):INPUT #1,TM$(I):INPUT #1,INS$(I)
  1660. 16430 I=I+1
  1661. 16440 GOTO 16390
  1662. 16450 CLOSE
  1663. 16460 EW=I-1:MM=0
  1664. 16470 FOR I=0 TO EW
  1665. 16480 LOCATE 3,1+MM:PRINT USING "### &           & SC=##### LV=## ô·òt=&       & &        & û╝æO=&        &";I;CL$(I);SC(I);LV(I);DT$(I);TM$(I);INS$(I)
  1666. 16490 MM=MM+1 
  1667. 16500 IF MM=9 THEN GOSUB *HITKEY:MM=0:GOSUB *GCL
  1668. 16510 NEXT
  1669. 16520 GOSUB *HITKEY
  1670. 16530 GOSUB *GCL:RETURN
  1671. 16540 *QQQQQ
  1672. 16550 GOSUB *OK
  1673. 16560 IF CC=1 THEN RETURN
  1674. 16570 CLOSE:KILL "DATA":OPEN "O",#1,"DATA"
  1675. 16580 PRINT #1,"*"
  1676. 16590 CLOSE
  1677. 16600 RETURN
  1678. 16610 *PIPO
  1679. 16620 FOR I=1 TO 2
  1680. 16630 P$="@7e4.&c4.&e4.&c4.&e4.&c4.":PLAY "o3r64"+P$
  1681. 16640 NEXT:WAIT 50
  1682. 16650 IF BR=2 THEN BR=0:MS$="ÅmÆ╖é¬ô|éΩé╜üI":GOSUB *STM:GOSUB 16710
  1683. 16660 FOR F=1 TO 6
  1684. 16670 IF M(F,16)=1 THEN SC=SC-100:MS$=NM$(F)+"é¬Ä⌐ÄEé╡é╜üI":GOSUB *STM:GOSUB *HITKEY:GOSUB *BARA
  1685. 16680 IF M(F,16)=2 THEN SC=SC-100:MS$=NM$(F)+"é¬ûΓæΦé≡ïNé▒é╡é╜üI":GOSUB *STM:GOSUB *HITKEY
  1686. 16690 NEXT
  1687. 16700 M=73:MK$=EA$(M):GOSUB *MK
  1688. 16710 FOR F=1 TO 6:M=0
  1689. 16720 IF M(F,16)=0 AND FNA(2)=1 THEN M=23:GOSUB *SS
  1690. 16730 IF M(F,16)=0 AND M=0 THEN M=30:GOSUB *SS
  1691. 16740 NEXT:WAIT 30
  1692. 16750 GOSUB *GAMEOVER
  1693. 16760 MS$="éfé`élédü@énéuédéq":GOSUB *MSG
  1694. 16770 GOSUB *HITKEY:GOSUB *CR
  1695. 16780 WAIT 30:GOTO *JYU
  1696. 16790 *BARA
  1697. 16800 PUT@A(38+(F-1)*48,60)-(38+(F-1)*48+6,60+14),BARA%,PSET
  1698. 16810 RETURN
  1699. 16820 *BEP
  1700. 16830 BEEP 363523,10,130
  1701. 16840 RETURN
  1702. 16850 *PPP
  1703. 16860 LINE(16+16*FX,145)-(16+16*FX+15,145+14),XOR,2,BF
  1704. 16870 RETURN
  1705. 16880 *FINAL
  1706. 16890 CLS
  1707. 16900 MOUSE 1:CLS:LOAD@"LBOOK.TIF",(0,0)
  1708. 16910 COLOR 1:LOCATE 3,1:PRINT USING "@ æ▓ï╞É╢";CL$
  1709. 16920 FOR F=1 TO 6:COLOR 1
  1710. 16930 IF F<4 THEN VX=16:ZX=13 ELSE VX=192:ZX=57
  1711. 16940 IF F>3 THEN ZY=(F-4)*7+4:VY=(F-4)*64+32 ELSE VY=(F-1)*64+32:ZY=(F-1)*7+4
  1712. 16950 PUT@A(VX,VY)-(VX+31,VY+31),R1%,PSET,,,,(F-1)*1056
  1713. 16960 PUT@A(VX,VY+32)-(VX+31,VY+32+22),BY%
  1714. 16970 N2$="ôVì╦":N3$="É^û╩û┌"
  1715. 16980 IF M(F,2)<180 THEN N2$="ÅGì╦"
  1716. 16990 IF M(F,2)<150 THEN N2$="ùDÅG"
  1717. 17000 IF M(F,2)<120 THEN N2$="ù╟éó"
  1718. 17010 IF M(F,2)<100 THEN N2$="òüÆ╩"
  1719. 17020 IF M(F,2)<90 THEN N2$="ê½éó"
  1720. 17030 IF M(F,2)<60 THEN N2$="ûΓæΦèO"
  1721. 17040 IF M(F,2)<50 THEN N2$="ì┼ê½"
  1722. 17050 IF M(F,3)<150 THEN N3$="ì┼ù╟"
  1723. 17060 IF M(F,3)<120 THEN N3$="ù╟éó"
  1724. 17070 IF M(F,3)<100 THEN N3$="òüÆ╩"
  1725. 17080 IF M(F,3)<80 THEN N3$="ê½éó"
  1726. 17090 IF M(F,3)<60 THEN N3$="ï╔ê½"
  1727. 17100 IF M(F,3)<40 THEN N3$="ûΓæΦèO"
  1728. 17110 IF M(F,3)<30 THEN N3$="èδî»"
  1729. 17120 LOCATE ZX,ZY-1:PRINT USING "@";NM$(F)
  1730. 17130 IF M(F,15)=1 THEN COLOR 6:MM$="ìçèi" ELSE COLOR 2:MM$="òsìçèi"
  1731. 17140 LOCATE ZX,ZY:PRINT USING "@";RM$(M(F,14))+MM$
  1732. 17150 COLOR 1:'IF M(F,15)=1 THEN COLOR M(F,14)
  1733. 17160 LOCATE ZX,ZY+1:PRINT USING "ɽèi    &       &";N3$
  1734. 17170 LOCATE ZX,ZY+2:PRINT USING "ɼÉ╤    &       &";N2$
  1735. 17180 COLOR 6:LOCATE ZX,ZY+3:PRINT "üÖêΩî╛üÖ"
  1736. 17190 COLOR 1:LOCATE ZX,ZY+4:PRINT USING "@";N4$(F)
  1737. 17200 COLOR 7:NEXT
  1738. 17210 GOTO *BGM3
  1739.